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Two  Exciting  Games:      , 

Missile  Math  For  Appier 
IBM  PC  And  PCjr,  Atari, 
Commodore  64,  TI-W/4A, 
And  VIC-20 

Lightsaver  For 
Commodore  64,  IBM  PC 
And  PCjr,  VIC-20, 
And  Atari 

Lightning  And 
Bulldozer  Sort: 
For  Apple,  Commodore  64, 
VIC-20,  IBM  PC  And  PCjr, 
And  Atari 

Autoboot  For 
Commodore  64 
And  VIC-20:  Load  Programs 
And  They  RUN  Themselves 

Atari  Speed-Reading: 
Improve  Your  Speed 
And  Comprehension 
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TEST  DRIVE 
AN  ELEPHANl 


Elephant  Floppy  Disks  are  the  perfect  vehicle  for  storing  and  pro- 
tecting data.  Because  Elephant  never  forgets.  You'll  get  high  performance 
that  s  100%  guaranteed  for  a  lifetime  of  heavy  use.  So  take  them  for  a  test 
drive.  They  re  available  now  at  your  local  computer  showroom.  And 
there's  no  waiting  for  delivery  For  the  Elephant  dealer  nearest  you  call 
1-800-343-8413.  fii  Massachusetts,  call  collect  |617|  769-8150 

ELEPHANT  NEVER  FORGETS. 
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Yott  bou^t  a  conqmter  to  cultiyate  jour  kids'minds. 
Make  sure  it's  beting  fruit,  not  gfowing  vegetables. 


Introducing  a  whole  crop  of  Learning 
Adventure  games  from  Spinnaker. 

When  it  comes  to  cultivating  adventurous 
young  minds,  tlie  computer's  potential  is 
endless. 

Unfortunately,  the  search  for  software 
that  makes  the  most  of  that  potential  has 
been  endless,  too. 

That  is,  until  Spinnaker  created  the 
Learning  Adventure  Series.  A  unique  collec- 
tion of  games  that  reward  curiosity  with 

It's  New!  TRAINS.™ 

You're  in  charge  of  an  old-time 
railroad -and  whether  it  turns 
into  a  bonanza  or  a  bust  depends 
on  how  well  you  run  it  But  either 
way  you'll  find  that  working  on 
this  railroad  is  a  challenge -and  a 
lot  of  fun!  Ages  10-Adult. 


hours  of  adventure  and  learning.  So  the 
time  kids  spend  with  our  games  will  help 
them  develop  valuable  skills.  Instead  of  just 
tired  thumbs. 

But  what  really  makes  our  Learning 
Adventure  games  unique-educational  value 
aside-is  how  much  fun  they  are.  Which  isn't 
too  surprising  when  you  consider  you  can 
do  things  like  bargain  with  aliens,  search  a 
haunted  house,  or  build  your  own  railroad 
empire. 


It's  New! 

ADVENTURE 

CREATOR.'" 

Design  a  challenging  adventure 
game  that  you  or  a  friend  can 
tackle-or  let  the  computer 
design  one  for  you.  It's  complex, 
exciting  -  utterly  addictivel 
Ages  tZ-Adult. 


In  fact. our  games  are  so  much  fun,  kids 
will  really  enjoy  developing  some  very  impor- 
tant skills.  Deductive  reasoning,  note  taking, 
and  problem  solving,  for  instance. 

So.  if  you're  in  the  market  for  software 
that  will  truly  cultivate  young  minds,  pick  the 
Spinnaker  Learning  Adventure  Series. 

It's  the  best  way  to  be  sure  your  search 
will  be  fruitful. 

spinnaker  Learning  Adventure  games  are  available 
for  Apple,=5  Atari.®  IBM''-  and  Commodore  64 '"  home 
computers. 

IN  SEARCH  OF 
THE  MOST 
AlVlAZING  THING.™ 

It  Isn't  easy  to  find  -even  in 
your  B-liner.  But  you'll  have  help 
from  your  Uncle  Smoke  Bailey 
as  you  search  the  universe  to  fi  nd 
the  Most  Amazing  Thing. 
Ages  10-AduIt. 
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We  make  learning  fun. 


Disks  for:  Apple,  Atari.  IBM.  and  Commodore  64. 
Cartridges  for:  Atari  and  Commodore  M  - 

(ADVENTURE  CREATOR  only). 


Apple.  Alan  and  IBM  are  re0stere<J  trademarks  of  Apple  Computer.  Inc..  Atari.  iiK.  af«  International  Business  Machine  Cona  Comnxxtore  W  is  a  trade  mark  of  to 
AH  rignts  rewf^/ed. 
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Modern  times  have  create 


We've  cleverly  disguised  them  as  funny 
creatures  from  a  computer  game.  But 
underneath  the  funny  exterior  is  one  of  the 
most  serious  approaches  to  home  education 
you've  ever  heard  of 
INTRODUCING  SPROUT™  SOFTWARE. 
GAMES  THAT  TEACH. 

Your  kid's  new  teachers  are  called  Tink 
and  Tonk.  They  come  from  Sprout.  Software 
for  kids  4  to  8. 

The  beauty  of  Sprout  software  is  how 

TlNKiTONK!  ctBfacters  ®  1983  TINK  TONK.  Inc.  Al  nghls  reserved  TIIMKITONK'  is  3  IraJeiWk  0(  TINK  TONK.  Inc    Spraul  15  pjblislwd  by  Mindscape,  Inc ,  NodhbFOok,  II  50062 


entertainment  is  balanced  with  a  healthy 
dose  of  education. 

While  kids  are  having  fun  at  home, 
they're  actually  reinforcing  what  they've 
learned  at  school.  Things  like  the  alphabet, 
spelling,  vocabulary,  counting,  adding,  and 
pattern  recognition. 

You'll  also  like  how  Sprout  prevents  bore- 
dom. Our  games  grow  up  instead  of  wear 
out.  As  kids  get  oldet;  the  game  adjusts  and 
gets  harder  Because  there  are  many 


i  a  new  breed  of  teachers. 


variations  and  nnany  decisions  to  make. 

Knowing  how  to  do  all  this 
isn't  something  Sprout  learned 
overnight. 

You  see,  we've  got  a 
hundred  years  of  experience  to 
lean  on.  (Our  parent  company 
is  SFN,  the  country's  #1  text- 
book publisher  for  elemen- 
tary and  high  schools.) 
We've  also  got  the  expe- 


rience of  Mercer  Mayer;  who  has  written  or 
illustrated  80  children's  books.  He  dazzles 
kids  with  ideas  and  pictures  that  keep  them 
coming  back  for  more. 

With  TINKITONK!^"  software,  kids  see 
that  learning  can  be  more  fun  than  destroy- 
ing space  creatures. 
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Games  that  grow  up.  Instead  of  wear  out. 


ComMlibfe  iMth  AJan-.  Connxjdore'^.  Apcfe*  anc  iQM  ' 
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iZurpi^nt    Prtce 
Current    UjLue 
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Advanced  snreadsheet 

SynCalc™ 


Database  managemenl 

SynFlle+™ 


Graphing  and  statistics 

SynTrend™ 


Now  your  Atari  computer 
gets  down  to 
business. 


II  you're  a  serious  home 
manager,  a  student,  or  run  a 
small  business  at  home,  now 
you  can  get  sophisticated,  inte- 
grated software  for  your  ATARI 
computer  with  the  same  fea- 
tures as  the  more  expensive 
IBM  and  Apple  packages. 

SynCalc 

makes  a  spreadsheet 

more  manageable. 

First,  there's  SynCalc,  the  most 
advanced  spreadsheet  pro- 
gram ever  created  for  ATARI 
Home  Computers.  Not  only 
does  SynCalc  help  you  gel  aU 
your  numbers  down  easily  it 
also  comes  with  a  sorting  fea- 
ture, and  the  ability  to  label 
and  name  your  formulas  like 
"beginning  inventory  +  goods 
purchased -goods  sold  =  in- 
ventory on  hand,"  as  well  as 
standard  entries,  And  SynCalc 
also  comes  with  "expert"  com-  4 
mands,  to  use  once  you've  be- 
come more  familiar  with  its 
procedures.  Plus  many  other 


features  found  in  the  more  ex- 
pensive programs. 

SynFlle-)-  keeps  Information 
more  organized. 

SynFile-i-  can  function  as 
your  database,  your  filing  sys- 
tem. With  SynFile-i-,  you  can 
reorganize  and  sort  parts  or 
whole  files  instantly  Not  only 
can  you  enter  text,  you  can  cal- 
culate and  update  data  as 
well.  And  files  from  both  Syn- 
Calc and  SynPile-i-  can  also  be 
used  by  the  ATARI  word  proc- 
essor, AtariWriter,™  for  uses  such 
as  mail  merge. 

SynTrend  gives  you 

a  more  graphic  way 

tolooKatdato. 

Next,  there's  SynTrend,  which 
can  be  the  graphing  and  statis- 
tical arm  of  your  operation. 
SynTrend  allows  you  to  vis- 
ualize your  data  from  SynCalc 
or  SynFile-H  with  either  bar 
graphs,  pie  charts,  line  graphs 
or  scatter  plots.  To  do  statistical 
analysis,  you  can  quickly  calcu- 


late means  and  variances, 
standard  deviations,  or  even 
linear  and  multiple  regres- 
sions. It's  pretty  easy  to  under- 
stand, eh?  And  also  pretty  easy 
to  operate  because  all  three 
programs  come  replete  with 
easy-to-understand  "pop-up" 
menus,  to  take  you  through 
their  paces  step  by  step.  And 
remember,  all  three  programs 
can  share  data,  which  helps  you 
get  the  job  done  even  foster. 

So  get  down  to  business  with 
SynCalc,  SynFile  +  ,  SynTrend, 
developed  exclusively  for 
ATARI  by  Synapse.  And  see  for 
yourself  why  the  cost  of  taking 
care  of  business  doesn't  have  to 
put  you  out  of  it. 

SynCalc.  SynFile  +  .  SynTrand  are  Irademarks  ol 
Synapse  Soliware.  Synapse  Is  a  reglitered  Irademarlt  ol 
Synapse  Soitware  Corporallon  IBM  and  Apple  are  re- 
spective trademarks  o!  Inlemallonal  Business  Machines 
Corp..  and  Apple  Computer. 
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DISCOVER 
WHAT  YOU  AND 
ATARI- 
CAN  DO. 

C  1 9M  Aiein  Ific  All  Riahb  Ro»rvsd  Q  A  Warner  Conimunlcolloru  Company 
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EDITORS  NOTES 


We  recently  received  a  letter 
from  a  long-time  subscriber  that 
thoughtfully  raises  some  con- 
cerns about  the  present  compo- 
sition of  COMPUTE!.  It  is 
excerpted  and  addressed  here. 

"Dear  Mr.  Lock, 

I  felt  compelled  to  write  to  you  to 
express  my  feelings  about  the  dis- 
appointing changes  which  have 
been  coming  over  my  once  favorite 
magazine,  COMPUTE!.  I  have  been 
reading  COMPUTE!  since  January 
1981  and  have  a  subscription 
which  is  paid  through  August  1985. 
In  recent  months,  since  January 
1984,  you  have  been  'spread  too 
thin'  by  attempting  to  cover  so 
many  types  of  computers  that  I  feel 
none  have  been  done  adequately. 
The  technical  content  of  the  maga- 
zine, for  the  Commodore  comput- 
ers, and  computer  use  in  the  home, 
is  what  had  interested  me  the  most, 
and  the  quantity  and  the  quality 
have  dwindled  so  much  ,  .  .". 

Our  reader  goes  on  to  dis- 
cuss concerns  in  specific  about 
the  breadth  of  our  articles,  and 
the  size  of  our  columns.  We 
thought  this  presented  a  good 
opportunity  to  address  these 
concerns  and  hopefully  explain 
some  of  what  we  see  happening 
from  here,  and  where  it  will 
take  us. 

The  Case  Of  The 
Dwindling  Magazine 

In  December  of  1983,  COMPUTE! 
had  392  pages.  This  issue,  Sep- 
tember 1984,  has  160.  The  De- 
cember issue  had  215  pages  of 
advertising;  this  issue  has  60.5. 
During  the  course  of  1984, 
we've  seen  a  massive  shakeout, 
not  unexpected  of  course,  in  the 
industry.  Where  there  once  was 
an  advertiser  base  of  thousands 


of  companies,  there  is  now  an 
advertiser  base  measured  in  the 
hundreds.  All  well  and  good, 
you  may  say,  but  is  it  really  a 
problem  or  concern  for  you,  the 
readers?  In  the  sense  that  we 
must  attend  to  some  economic 
realities  in  planning  and  pub- 
lishing our  magazines,  the  an- 
swer is  yes.  Do  we  subjugate 
our  concerns  to  formula?  No, 
absolutely  not. 

A  typical  rule  of  thumb  for 
the  publishing  business  is  a 
50/50  advertising  mix.  As  size 
increases,  this  ratio  gives  over  to 
an  increased  percentage  of  ad- 
vertising. In  our  case,  the 
December  1983  issue  of  COM- 
PUTE! was  over  55  percent  ad- 
vertising. The  September  issue, 
by  rule  of  thumb,  should  be  at 
most  128  pages.  Given  the  over- 
head we  carry  in  fixed  page 
content  (i.e.,  everything  from 
columns  to  MLX),  this  was  not 
acceptable.  The  result  is  that  our 
editorial  percentage  in  this  issue 
approaches  65  percent. 

The  Future 

Certainly  all  of  this  makes 
sense,  but  it  still  doesn't  solve 
the  problem/question  at  hand: 
more  content.  What  else  can  we 
do?  We're  working  on  it.  In  our 
"fixed  overhead"  areas,  we're 
whittling  down  column  sizes. 
We're  trying  to  expand  the 
scope  of  some  columns  so 
they're  more  useful  to  more  of 
you.  And  we're  evaluating  all  of 
our  columns  with  an  eye  toward 
further  reductions. 

One  of  your  complaints,  in 
essence,  is  that  some  of  the 
"meat"  of  our  content  is  dimin- 
ished. Upon  reflection,  I  think 
that's  an  offshoot  of  our  at- 


tempts to  provide  continued 
breadth.  We  probably  have  a 
tendency  to  run  shorter  articles 
to  enhance  variety.  The  unfortu- 
nate by-product  of  this  is  that 
some  of  the  more  technical, 
lengthy  articles  are  bypassed. 
This  we  can  address  immedi- 
ately, and  we  will  begin  to  do 
so  with  our  October  issue.  We 
would  welcome  some  additional 
input  from  readers.  One  sugges- 
tion here  has  been  that  we  start 
to  run  some  of  our  "fixed"  ma- 
terial on  an  every-other-issue 
basis.  This  would  mean  that 
"Beginner's  Guide  To  Typing  In 
Programs,"  for  example,  might 
appear  on  alternate  months.  We 
are  open  to  your  thoughts.  Your 
comments? 


Editor  In  Chief 
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Its  only  business  is  managing  your  home  finances. 

No  program  does  it  more  quickly,  more  easily,  more  directly. 


Your  Personal  Net  Worth  systematizes 
the  management  of  your  household  income^ 
expenses,  credit  cards  and  checl<  bool<s  — 
using  methods  tested  for  accuracy  by  louche 
Ross,  one  of  the  nation's  leading  accounting 
firms. 

Your  Personal  Net  Worth  puts  your  com- 
puter to  worl<,  l<eepsyour  records  straight,  in- 
cluding your  personal  inventory  of  valuables 
and  stock  portfolio,  tells  you  where  and  how 
you're  spending  your  money  or  if  you're  mal<- 
Ing  a  shambles  of  your  budget.  And  does  it'all 

J 


in  less  time  than  it  takes  you  to  balance  your 
^checkbook.       — ^^^^— «i— i^^^^^^^— 

Nothing  else  —  no  other  program  at  twice 
the  price  —  makes  handling  your  personal 
money  matters  simpler,  faster  and  more  direct 
than  Your  Personal  Net  Worth. 

You'll  find  it  at  your  favorite  software 
retailer  in  the  silver  box  with  the  real 
silver  dollar  on  the  front.  It  could  be  the 
single  most  valuable  purchase  you'll 
ever  make. 


Record  all  banking  and 
any  credit  card  trans- 
actions, reconcile  bank 
statements  instantly  (up 
to  10  separate  bank  ac- 
counts can  be  handled), 
—  print  checks,  too. 


Set  up  a  budget  (as  many 
as  350  categories)  —  and 
then  compare  your  actual 
income  and  expenses  to 
the  budget. 


Ncuftr  fnrqfit  at 


tiBIeltem.  Today  or  at 
return  time. 


Display  or  print  every 
financial  report  you'll 
everneed. 


'^**^&!«. 
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Record  stock,  bond  and 
other  investment  trans- 
actions. Inventory 
household  valuables, 
collectibles  and 
mportant  papers  for 
insurance  and  other 
purposes. 


Your  Personal  Net  Worth 
works  fast  because  it's  in 
machine  language.  Docu- 
mentation in  plain  English 
is  referenced  for  easy 
use.  "Help"  functions  on 
screen  at  ail  times. 


'  \    ,,„Bi/  SO  coin""' 


Available  for: 


IBM-PC/XT/PCjr  (128K) 
Apple  II +/lle/llc(64K) 
Commodore  64 
Atari  (48K) 
The  Program  comes 
with  two  disks,  one  of 
which  has  accounts  al- 
ready set  up  for  entry. 
However,  only  one  disk 
drive  is  necessary. 


B  ^^^  H  You'll  grow  with  us. 

M  vifiriAMt 
1 11^  ^^wi  i#vff  WW  Iff  ^w^a^ttM* 
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space  Bottfe  Dtspioy 


The  Labyrinths  of  Kamerra 


Hyperwarp  Temporol 
Imbolance  Sensor  Grid 


Galactic  Starmap  Dlspioy 


Scott  Lamb's  Interactive 
Space  Fantasy  Adventure 

The  sequel  to  JUPITER  MISSION  1999" 

When  the  government  agents  knocked  on  your  door  early  one  morning  (at 
the  beginning  of  JUPITER  MISSION  1999)  and  rudely  whisked  you  away  in  the 
starship  Space  Beagle,  you  had  no  Idea  of  what  was  to  follow,  As  the  lone  sur- 
vivor of  Jupiter  Mission  and  the  Earth's  savior  from  an  impending  alien  invasion, 
you  unwittingly  thought  the  worst  was  behind  you.  SUM  CHANCE!  A  mysterious 
beam  has  cast  you  into  the  nether  reaches  of  space;  coSd,  lifeless,  forbidding. 
You  long  for  the  amenities  of  Mother  Earth,  which  you  had  always  taken  for 
granted  .  .  .  until  now! 
THE  QUEST  OF  THE  SPACE  BEAGLE:  THREE  ADVENTURES  IN  ONEI 

■  Befriended  by  the  Faunians,  a  peaceful  race  being  invaded  by  the  evil 
Gentuzians,  they  have  decided  that  YOU  must  launch  a  pre-emptive  strike 
against  the  Gentuzian  homeworld.  You  must  command  10  Faunion  robot 
fighters  against  the  Gentuzian  battle  fleet  which  outnumbers  you  four  to  one!  It 
won't  be  easy;  you'll  need  the  right  tactics  and  all  the  skill  and  potience  you 
can  muster. 

■  Assuming  you  are  successful  and  conquer  the  Gentuzians,  they  will  want 
you  to  become  their  Emperor.  The  only  thing  you  want  is  to  repair  the  Space 
Beagle  and  get  back  home.  But  they  are  insistent  creatures;  refuse  the  crown, 
and  you  can  forget  leaving.  Reluctantly  you  accept  and,  to  prove  your  claim, 
they  drop  you  into  the  Lobyfinth  of  Kamerra!  Find  your  way  out.  and  they'll  let 
you  go  home  as  Emperor  of  Gentuza.  No  problem,  you  think,  until  you  soon 
realize  that  Kamerra  is  o  cruel  maze  deficient  of  adequate  food  and  oxygen, 
yet  aplenty  with  dangerous  pits  and  "Ardiifian  Whipstingers." 

■  SHOOT  THE  STARS!  Fortunately,  you  are  abie  to  save  your  game  in  progress 
every  step  of  the  way  in  QUEST  OF  THE  SPACE  BEAGLE. 

Your  greatest  challenge  is  about  to  begin.  As  you  settle  into  the  com- 
monder's  chair  of  the  Space  Beagle,  you  set  your  sights  for  home!  But  which 
way?  Before  you  spans  200,000,000  light  years  of  Superclusters.  On  board  is  an 
authentic  matrix  computer  calibrated  to  simulate  the  actual  dimensions  of  the 
universe.  You  must  identify  the  one  Superciuster  containing  Sol,  and  hyperwarp 
from  one  end  of  space  to  another.  Once  you  lock  into  the  right  Superciuster, 
you  must  find  the  Milky  Way  Galaxy,  your  assurance  that  Mother  Earth  is  within 
reach,  and  home  sweet  homel 

THE  QUEST  OF  THE  SPACE  BEAGLE  is  ready  to  run  on  your  Atari®  Home  Computer 
with  48K  memory,  one  disk  drive  and  joystick.  835.00 

Available  everywhere  at  computer  and  hobby  stores,  or  call  toll  free 
1-800-638-9200  for  more  information. 
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READERS'  FEEDBACK 


The  Editors  and  Readers  of  COMPUTEi 


Automatic  Conversions? 

Many  of  the  programs  you  publish  in  COMPUTE! 
are  for  several  different  microcomputers.  Do  you 
have  utilities  that  automatically  convert  a  pro- 
gram to  another  type  of  computer?  Are  they 
available  for  sale? 

J.B.  Allen 

YJe  call  the  ■process  of  converting  a  computer  pro- 
gram to  another  computer  homogenization.  Un- 
fortunately, we  do  not  have,  nor  have  we  seen,  any 
utilities  that  will  automatically  homogenize  a 
program. 

We  have  a  staff  of  talented  programmers  that 
manually  goes  through  programs  and  homogenizes 
them.  The  process  can  be  a  laborious  one,  particu- 
larly with  machine  language  programs  which  often 
require  a  byte-by-byte  translation. 

Missing  Commodore  Ribbons 

I  am  the  owner  of  a  Commodore  MPS-801 
printer.  Until  recently,  I  have  had  trouble  finding 
a  replacement  ribbon.  It  seems  that  the  dealers 
selling  the  printers  are  not  able  to  get  the 
ribbons. 

1  have  some  good  news  for  you  to  pass  on  to 
your  readers.  You  can  find  a  replacement  ribbon 
at  your  local  Radio  Shack  store.  It  is  the  ribbon 
for  the  DMP-110  printer,  part  number  26-12^3. 
This  ribbon  is  identical  to  the  one  for  the  MPS- 
801  printer. 

Frank  W.  Fife 

Many  readers  have  mentioned  difficulty  locating 
replacement  ribbons  for  the  801.  Thanks  for  the  tip. 


Atari  Monitor  Hookup 

I  have  ordered  a  BMC  monitor  and  an  Atari 
800XL.  Very  recently,  I  was  told  that  the  Atari  is 
designed  for  use  with  a  standard  TV  set.  How 
can  I  make  the  Atari  work  with  the  BMC  mon- 
itor. Will  the  monitor  be  totally  useless? 

Benedict  V.  Sulit 

Although  optimized  for  use  with  a  television  set,  the 
Atari  800XL  looks  even  better  on  a  composite  color 
monitor.  You  can  also  hook  up  a  black-and-white 
(monochrome)  monitor.  You'll  need  a  special  cable 
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that  plugs  into  the  round,  five-pin  DIN  plug  on  the 
back  of  your  SOOXL.  For  a  color  monitor,  get  a  cable 
that  feeds  the  chroma  (composite  video)  signal  into 
Video  In  on  your  monitor.  For  a  monochrome 
screen,  you'll  get  best  results  using  the  lUMA  (lu- 
minance) signal.  Some  cables  bring  out  all  five  pins 
to  RCA  phono  jacks.  With  trial  and  error  you  can 
easily  find  which  wire  controls  which  signal.  You 
can  get  a  video  cable  at  your  local  computer  store  or 
possibly  a  TV/video  store. 


Musical  Apples 

I  am  an  Apple  lie  user  and  would  like  to  know 
how  to  program  my  computer  to  make  music. 
Can  you  do  it  in  Applesoft  BASIC  or  do  you 
need  another  language? 

Denny  Hays 
It's  a  fairly  simple  matter  to  make  elementary 
sounds  on  the  Apple  in  BASIC.  You  can  tweak  the 
speaker  by  accessing  location  -16336  (i.e.,  POKE 
-16336,0)  or  ring  the  bell  by  PRINTing  CHR$(7). 
But  to  do  much  more  than  this,  you  need  a  short 
machine  language  (ML)  routine.  Fortunately,  this 
ML  routine  can  be  POKEd  in  from  BASIC. 

You  can  find  such  an  Ml  routine  in  an  article 
by  Blaine  Malhieu  (COMPUTE!,  October  and  Novem- 
ber 1983).  The  tutorial  explains  both  fundamental 
and  complex  Apple  sound  generation. 


More  Open  Commodore  Files 

The  "64  Explorer"  by  Larry  Isaacs  in  the  March 
1984  issue  concerning  the  maximum  number  of 
files  which  can  be  open  at  one  time  on  the  1541 
disk  drive  caught  my  interest.  I  have  discovered 
some  further  information. 

The  number  of  sequential  files  opened  for 
writing  can  be  increased  to  three  if  the  filename 
is  prefixed  with  a  0:.  When  this  is  not  the  case, 
the  drive  acts  as  Isaacs  described. 

Since  the  Disk  Operating  System  was  orig- 
inally used  on  a  dual  disk  drive,  I  always  add  the 
prefix  0:  to  any  disk  operation  to  insure  that  it 
will  work  properly. 

Mitchell  S,  Comstock 
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Autoboofing  Atari 

Is  there  any  way  you  can  make  a  program  run 
right  after  it  has  been  loaded  into  your  computer 
from  tape  or  disk?  This  would  prevent  anyone 
from  seeing  the  special  codes  in  the  program. 

Mark  Zobel 
We  assume  you  are  using  a  password  or  are  dis- 
abling the  break  key  and  system  reset.  If  the  pro- 
gram didn't  run  automatically,  anyone  could  LIST 
the  program  and  remove  the  ^protection.  Although 
you  can't  completely  bar  an  experienced,  enthusias- 
tic invader,  you  can  make  a  program  run  automati- 
cally from  disk  when  you  boot  up  your  system.  See 
"Automate  Your  Atari"  in  COMPUTE's  Third 
Book  of  Atari. 

Although  it  is  possible  to  create  a  boot  tape 
that  does  the  same  thing,  we  don't  know  of  a  spe- 
cific program.  There  are  techniques  for  making 
BASIC  programs  RUN  automatically  when  LOADed 
on  Commodore  machines  (for  example,  having  the 
program  load  in  memory  low  enough  to  change 
some  vectors),  but  the  technique  is  too  itivolved  to 
cover  here.  See  "Commodore  Autoboot"  elsewhere  in 
this  issue. 


Tl  Memory  Maps 

I  write  this  in  reply  to  the  letter  from  Davin  A. 
Trulsen  in  the  May  issue  of  COMPUTE!.  If  he  or 
any  other  TI  user  wants  a  comprehensive  mem- 
ory map  for  the  TI,  they  should  write  to  Miller 
Graphics,  1475  West  Cypress  Avenue,  San  Dimas, 
CA  91773.  Miller  Graphics  offers  a  monthly 
newsletter,  called  The  Smart  Programmer,  for 
$12.50  a  year.  They  have  published  four  so  far 
and  I  have  found  them  quite  useful. 

Bill  Grant 


Incomplete  NEXTs 

I  have  a  VIC-20  and  I  have  a  question  about  the 
NEXT  statement.  I've  seen  some  programs  that 
had  a  NEXT  statement  with  nothing  after  the 
next.  For  example: 

FOR  A=lTO10:NEXT 

Why  doesn't  it  include  the  variable  after  the 
NEXT  as  in: 

FORA  =  lTO10:NEXT  A 

Kevin  Biebor 

The  NEXT  statement  increments  or  completes  a  loop 
that  was  started  by  a  FOR  statement.  If  a  variable 
is  placed  after  the  NEXT,  that  loop  is  incremented. 
In  the  following  example,  the  B  loop  will  be  in- 
cremented (and  completed)  ten  times  each  time  the 
A  loop  is  incremented. 


FOR  A=lTO10 
FOR  B  =  1T010 
NEXTB 
NEXT  A 


//  the  NEXT  statement  is  not  followed  by  a  variable 
name,  the  loop  completed  will  be  the  one  most  re- 
cently started.  In  the  following  example,  the  NEXT 
will  complete  the  B  loop  even  though  the  A  loop 
was  the  first  one  started. 


FOR  A=lTO10 
FOR  B  =  lTO10 
NEXT 


Nested  loops  (loops  within  other  loops)  should  be 
written  with  care.  If  they're  programmed  in- 
correctly, one  or  more  of  the  loops  may  not  be  com- 
pleted.  For  instance,  the  B  loop  in  the  following 
example  will  never  be  completed. 


FOR  A  =  lTO10 
FOR  B  =  lTO10 
NEXTA 
NEXTB 


Don't  Blame  Ttie  Hardware 

I  am  having  a  problem  reading  arrays  on  the 
Atari.  This  simple  program  is  an  example: 

10  DIM  X(5) 

20  FOR  1=1  TO  5 

30  READ  X(I) 

40  PRINT  X(I) 

50  NEXT  I 

60  DATA  3,5,-2,7,4 

I  always  get  an  error  in  line  30.  I  wonder  if  my 
computer  memory  has  gone  bad. 

Lloyd  R.  Holmes 

When  faced  with  a  particularly  stubborn  bug,  most 
programmers  start  to  suspect  the  hardware — but  it's 
almost  never  the  culprit. 

As  a  general  programming  rule,  never  assume 
the  hardware  is  bad  except  as  a  last  resort.  Some 
program  bugs  are  so  obscure,  so  hard  to  track  down, 
that  it  becomes  pretty  tempting  to  blame  the  hard- 
ware. Nevertheless,  true  hardware  errors  almost  al- 
ways exhibit  outrageous  behavior,  such  as  lockups 
when  you  turn  the  machine  on,  screens  that  sud- 
denly go  haywire,  an  eerie,  inexplicable  hum  when 
you  use  SOUND,  etc.  Hardware  errors  are  obvious, 
except  when  just  a  few  bytes  of  RAM  go  bad.  You 
can-  buy  memory  test  programs,  but  it  would  prob- 
ably be  an  unnecessary  investment. 

The  specific  problem  you're  having  here  is 
syntactic.  On  the  Atari,  you  cannot  READ  a  data 
item  directly  into  an  array.  READ  X(I)  is  just  as  il- 
legal as  INPUT  X(I).  It's  a  lamentable  eccentricity, 
but  it  is  easy  to  get  around,  fust  read  the  item  into 
a  temporary  variable,  then  assign  that  variable  to 
X(I).  To  wit:  READ  T:X(I)=T. 
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Go  for  higher  Scholastic  Aptitude  Test 
scores  in  math  and  English  — 
with  Micro  Learn's  teach-and-test 
instructional  programs. 


'USH 1 


Learn  more  and  learn  faster.  Other 
tutorials  just  test  you;  Micro  Learn's 
teach-and-test  SAT  programs  explain 
why  your  answers  are  right  or  wrong. 

They're  the  next  best  thing  to  having  a 
personal  tutor.  With  three  separate 
programs  for  math  and  three  for 
English,  you  can  really  be  ready 
for  your  exam! 

In  the  tutorial  mode,  a  wrong  answer 
triggers  help  screens  and  extra 
practice.  (If  you  answer  correctly,  you 
can  still  ask  for  this  extra  help.)  The 
test  mode  asks  questions  without 
giving  help.  Then  the  questions  you 
missed  are  given  again  with  help. 

Micro  Learn's  SAT  programs  are  a  great 
learning  aid  —  and,  at  only  $30  each,  a 
great  value.  You'll  be  making  a  smart 
move  by  getting  them  today! 

For  Commodore  64,  Apple  II  &  lie, 
IBM  PC  &  jr,  Atari  800,  Adam. 
Suggested  retail  $30  each. 


Micro  Learn.  Commoddre  64,  Apple  II  &  lie. 

IBM  PC  &jr,  Atari  SOOand  Adam  are  registered 

trademarks  of  MicroLab.  Inc.,  CommocJore 

Electronics.  Ltd.,  Apple  Computer.  Inc., 

IBM  Corp.,  Atari,  Inc.  and  Coieco  Industries,  Ltd. 

respectively. 


^^a? 


Math  SAT  increases  understanding  of 
arithmetic,  algebra,  geometry,  ratios, 
probabilities,  exponents,  square  roots, 
fractions,  quantitative  comparisons,  negative 

numbers,  least  common  multipliers,  graphs. 


English  SAT  develops 
the  verbal  skills  of 
vocabulary,  reasoning 
and  interpretation. 
Improves  grammar; 
expands  knowledge  of 
synonyms,  antonyms 
and  root  words; 
strengthens  grasp  of 
analogies;  increases 
reading  comprehension. 


icpolesnn 

THE  COMPUTER  EDUCATION  DIVISION  OF  MICROLAB,  INC. 
2699  Skokie  Valley  Road,  Highland  Park,  1160035  •  (312)433-7550 


THE  REAL  TRICK  IS  GETTING  QUI 


Expect  the  unexpected 
the  first  time  you  experi- 
'^    ence  Infocom's  interactive 
''^  fiction.  Because  you  won't 

be  booting  up  a  computer  game. 
You'll  be  stepping  into  a  story. 

You'll  find  yourself  at  the  center  of 
an  exciting  world  that  continually 
challenges  you  with  surprising 
twists,  unique 
characters 
(many  of  whom 
possess  ex- 
traordinarily developed  personalities) 
and  original,  logical,  often  hilarious 
puzzles. 

Communication  is  carried  on  just 
as  it  is  in  a  book— in  prose.  And  inter- 
action is  easy— you  type  in  full 
English  sentences. 

But  if  you  think  getting  inside  a 
story  is  a  pretty  neat  trick, 
\  just  try  getting  out. 

The  most  remarkable 
';  thing  about  Infocom's  inter- 
active fiction  is  that  you  become 
almost  inextricably  involved  with 
it.  That's  not  our  opinion— it's  the 
testimony  of  our  customers,     wn/w, 
They  tell  us  their  pulse  rates   ^^m* 
have  skyrocketed  and  their     i-jS^i 
palms  have  sweated  as  they've  »' ,_ 
striven  to  solve  the  mysteries  of 
our  tales.  And  even  when  they've 
paused  in  the  course  of  their  adven- 
tures to  attend  to  their  everyday    __ 
lives,  their  minds  have  continued  to 
.■aaesaasaf"  ^^_^g  chum  away  at 
what  the  next 
step  should 
be ,  how  to 
alter  strategy,  where  the  ultimate 
solution  lies. 

Obsessions?  Yes,  but  magnificent 
ones.  For  the  first  time,  you  can  be 
more  than  a  passive  reader— you  can 
become  the  story's  main  character 
and  driving  force.  You  can  shape  its 
I  course  of  events  by  what  you 
choose  to  do.  And  you  enjoy 
enormous  freedom  in  your 
I  choice  of  actions —you  have 


hundreds,  even  thousands  of  alterna- 
tives at  every  step.  In  fact,  an  Infocom 
interactive  story  is  roughly  the 

-\     HH  length  of  a  short 
jj^pt  W    "W  novel  in  content, 
but  because  you 
take  an  active 
role  in  the  plot,  your  adven 
ttire  can  last  for  weeks  and 
months.  (Or  longer. 
Frankly,  some  folks  find 
being  inside  our  stories 
so  fascinating,  they 
just  don't  seem  to 
want  to  get  out.) 

As  hard  as  get- 
ting out  may  be, 
though,  we've 
made  it  easy 
for  everyone 
to  get  into 
Infocom's 
interactive 
fiction. 


We  write 
everything  fi-om 

fantasy  to  mystery  to  science  fiction 
to  high  adventure,  for  everyone  fi'om 
the  first- time  adventurer  to  the  most 
experienced  veteran  of  our  interac- 
tive stories. 
So  find  out  what  it's  like  to  get 
inside  a  story.  Get  one  from 
Infocom.  Because  with 
Infocom's  interactive  fiction, 
there's  room  for  you  on 
every  disk. 

Ease  into  interactive  fiction 
with  our  Can't-Lose  Sampler  Oifer! 
Watch  for  Infocom's  new  sampler 
disk  at  your  favorite  dealer— and  get 
your  first  taste  of  interactive  fiction 
for  just  $7.95  (suggested  retail 
price).  You've  got  nothing  to  lose 
(in  fact,  you  can  make  a  shiny  new 
nickel  in  the  bargain)  because  your 
Infocom  sampler  disk  even  comes 


with  a  coupon  entitling  you  to  $8  ofl!" 
the  purchase  of  your  first  complete 
Infocom  story,  plus  coupons  for 
other  exciting  bonuses! 

inFocom 

55  Wheeler  St.,  Cambridge,  MA  02138 

For  vour:  Apple  II.  MacinlOsh,  Atari.  Commodore  64.  CP/M  8". 
[lECmale.  DEC  Rainbow.  DEC  RT-U.  HP  150&  UO.  IBM  PC" 
&  PCjr.  KAYPRO  I[,  .MS-DOS  2.0".  NEC  APC.  NEC  PC-8000. 
Osborne, TRS-SOCokirCompulLT.  Tandy  2000. T[  Professional. 
Tl  99'4A.TKS-80  Motlelsi*  111. 

'Use  the  IBM  PC  version  for  your  Compaq  and  the  .MS-DOS  2.0 
version  for  your  Wanu,  Mindset.  Data  General  System  10,  GRil) 
and  many  others. 


\  hit  'hf  n'ti\ii.ii„„, 

r-sf  .init  J  tUrk  <t.ift 
I  A  tijtk  .  /i/„i/„.,. 
/ft,  null  m-  h/ti,  /,  i^ 
vuw/f  *.u  k,  siiu'll. 
'nit  (V»  the  tahk: 
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And  remember  The  Programmer's  Debugging 
Rule:  Hardware  problems  are  as  obvious  as  they  are 
rare. 


Commodore  Plus/4 

Since  you  published  the  article  on  the  new  Com- 
modore computers  (COMPUTE!,  April  1984),  I 
have  been  giving  serious  thought  to  purchasing 
one.  I  will  be  enrolling  in  college,  and  feel  that 
the  new  Commodore  264  would  be  a  good 
choice  for  my  major:  electronics.  However,  I 
have  a  number  of  questions  about  the  264. 

1.  I  know  that  the  1541  disk  drive  works 
with  the  Commodore  64  and  the  VIC-20, 
but  will  it  also  be  compatible  with  the  264? 

2.  How  far  can  I  expand  the  RAM  or  ROM 
memory  in  the  264? 

3.  Can  I  buy  an  Eprom  burner  for  the  264? 

4.  Is  there  any  software  available  for  the 
new  264? 

5.  Is  it  possible  to  increase  the  baud  rate  of 
the  1541  disk  drive? 

Don  Maxwell 

The  new  Commodore  Plus/4  (renamed  from  the  264) 
has  not  been  released  for  sale  as  of  this  writing.  It 
is,  however,  expected  to  hit  the  retail  shelves  some- 
time this  fall. 

About  the  same  time,  Commodore  is  planning 
to  market  a  new  disk  drive,  the  SFS-481.  SF  stands 
for  super  fast  because  it  has  an  advertised  baud 
rate  of  1675.  However,  a  1541  disk  drive  will  be 
compatible  with  the  new  Plus/4  as  well. 

Although  the  Plus/4  will  support  (memory) 
bank  switching.  Commodore  has  not  announced  any 
memory  expansion  for  the  Plus/4.  However,  third- 
party  companies  might  eventually  offer  something. 

Regarding  EPROM  burners,  again  Commodore 
has  no  current  market  plans,  but  undoubtedly  third- 
party  manufacturers  will  offer  this  peripheral.  Also, 
there  will  be  software  available  for  the  Plus/4. 
There  already  exists  a  considerable  amount  of  both 
application  and  entertainment  software. 

As  to  the  baud  rate  change  on  the  1541  disk 
drive,  a  Commodore  representative  said  that  the 
baud  rate  (the  speed  that  information  is  transmitted 
to  or  from  the  disk  drive)  on  the  1541  cannot  be 
changed  on  the  drive  as  is.  The  current  baud  rate  is 
dictated  by  the  serial  port  interface  on  the  com- 
puter. In  other  words,  no  matter  how  you  modify 
the  disk  drive,  the  computer  will  only  be  able  to  re- 
ceive data  at  its  preprogrammed  rate. 

The  1541's  rate  can  be  increased  by  converting 
it  to  a  parallel  interface.  But  this  is  a  major  en- 
gineering project,  and  might  prove  to  be  both 
impractical  and  costly. 
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Buying  The  Right  Modem 

I  am  thinking  of  buying  a  modem.  Do  I  need  a 
rotary-dial  phone,  or  will  modems  work  with  a 
Touch-Tone  system? 

Steve  Milewski 

Most  modems  will  work  with  both  the  Touch-Tone 
and  the  older  rotary  phones.  Some  modems,  in  fact, 
work  on  Touch-Tone  phones  by  emulating  the  ro- 
tary system.  The  Commodore  1650  auto-dial  modem 
is  one. 

Before  buying,  however,  it's  always  best  to  ask 
your  dealer,  or  call  the  modem  manufacturer  for 
further  information. 


Commodore  Service 

I  am  an  electronics  repair  technician,  and  own  a 
Commodore  64.  I  cannot  find  anyone  in  my  area 
who  can  repair  my  computer. 

Where  can  I  obtain  the  technical  information 
to  service  my  Commodore  computer,  and  all  of 
its  related  peripheral  equipment? 

Gordon  Bates 

The  addresses  and  phone  numbers  of  the  Com- 
modore service  centers  are  as  follows: 

1200  Wilson  Drive 
Westchester,  PA  19380 
(215)  431-9105 

2246  North  Palmer  Drive 
Schaumburg,  11  60195 
(312)  397-0075 

4350  Beltwood  Parkway  South 
Dallas,  TX  75234 
(214)  458-1000 

3330  Scott  Blvd. 
Santa  Clara,  CA  95051 
(408)  727-1130 

Technical  information  on  some  of  Commodore's 
products  is  also  available.  They  offer  packages 
which  include  schematics,  technical  information, 
troubleshooting  instructions,  etc.  For  price  and 
availability  information,  contact  the  parts  depart- 
ment at  the  West  Chester,  PA,  address  listed  above. 


Cassette  Filenames  And  Built-in 
BASIC 

I  own  an  Atari  400  computer.  Can  you  specify  a 
filename  for  the  410  program  recorder?  Also, 
how  do  you  run  a  program  that  asks  you  to  re- 
move the  BASIC  cartridge  on  the  600XL?  Since 
BASIC  is  built-in,  it  seems  like  it  might  be 
impossible, 

Doug  Stevens 

The  tape  operating  system  could  have  been  written 
to  allow  filenames,  but  since  tape  access  is  sequen- 


Get  the  jump  on  the  weather- 
man by  accurate!\-  forecasting 
the  local  weather  voiirseif! 


The  beautiful  princess  is  held 
captive  hy  deadly  dragons.  Only 
a  knight  in  shining  armor  can 
save  her  now! 


A  lime-saving  organizer  for 
coupons,  receipts  and  more. 


A  scientifically  proven  way  to 
develop  an  awesome  memory. 


Cut  your  energy  costs  by  moni' 
loring  your  phone,  electric  and 
gas  bills. 


^1%  X  'Jl  -J  4**30 

BBaQEBQ  ,, 

E    a 


School-age  and  pre-sclm  il 
children  are  rewarded  for  right 
answers,  corrected  on  their 
wrong  ones. 


4;AviF^  fc 


masRinmen 


^'ou  are  trapped  in  a  five- 
story,  12.1-room  structure 
made  entirely  of  ice.  Find  the 
exit  before  \'0u  freeze! 


Computerize  car  maintenance 
to  improve  auto  performance, 
economy  and  resale  value. 


-CEFki^ldR 
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A  real  brainflexer.  Deflect 
random  balls  into  targets  on 
a  constantly  changing  play  field. 


Take  control  of  your  personal 
finances  in  less  than  one  hour 
a  month. 


Create  multi-colored  bar 
graphs  with  a  surprisingly 
small  amount  of  memory. 


-A  fun  way  to  dramatically 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 

for  less  than  15  cents  eacti — 

every  montti  in  COMPUTE! 


Every  month,  COMPUTE!  readers  enjoy  up  to  30  brand 
new,  ready-to-run  computer  programs,  even  arcade 
quality  games. 

And  when  you  subscribe  to  COMPUTE!  at  up  to 
40%  off  the  newsstand  price,  you'll  get  them  all  for  less 
than  15  cents  each! 

You'll  find  programs  to  help  you  conserve  time,  ener- 
^  and  money.  Programs  like  Cash  Flow  Manager.  Re- 
tirement Planner.  Coupon  Filer.  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense,  Boggier,  Sla- 
lom and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and  fun  with 
First  Math,  Guess  That  Animal  and  Mystery  Spell. 

Looking  for  a  challenge?  You  can  write  your  own 
games.  Customize  BASIC  programs.  Even  make  beau- 
tiful computer  music  and  pictures. 

It's  all  in  COMPUTE!  Ail  ready  to  type  in  and  run 
on  vour  Atari,  Apple,  Commodore,  PET/CBM,  TI 99/4A, 
Radio  Shack  Color  Computer,  IBM  PC  or  IBM  PCjr. 

What's  more,  you  get  information-packed  articles, 
product  reviews,  ideas  and  advice  that  add  power  and 
excitement  to  all  your  home  computing. 


And  when  it's  time  to  shop  for  peripherals  or     J^ 
hardware,  check  COMPUTE!  first.  Our  product    JF 
evaluations  can  save  you  money  and  costly  mis-^^ 
takes.  We'll  even  help  you  decide  what  to  buy:,^r 
Dot-matri.x  or  daisy-wheel  printer?  Tape    ^ 
storage  or  disk  drive?  What  about        .^^ciiBsr'DiRF 
modems?  Memory  expansion  kits?       JF    SUBSCRIBt 
What's  new  in  joysticks,  paddles     j^   NOW  AND 
and  track  balls?  J^  SAVE  UP  TO 

.#  407c ON  COMPUTE! 


SAVE 
UPTO407o 

OFF  THE 

NEWSSTAND 

PmCE  ON 

COMPUTE! 


J^  Yes!  Start  mv  subscrip- 
^^tion  to  COMPUTE!  for: 
J^      D  1  :'ear  $24—32%  off! 
^  0  2  years  ?45-36  %  off! 

n3Vears$65— 40%  off! 


CALLTOLi-FREE 
1-8O0-334-0868 


Return  the 
coupon  or 
postpaid     . 
card         j^ 

^     Name 

4r 

^      Address  _ 
^r    City 


D  Payment  enclosed        D  Bill  me 
^  Charge  my  D  Visa  D  MasterCard  D  Am.Ex. 
Account  No. 


/ 


.  State  - 


.Zip 


V 


COMPUTE!  P.O.  Box  914,  Farmingdale,  NY  11737 


tial  and  so  slow  compared  to  a  disk  drive,  filenames 
are  not  especially  useful.  You  can  instead  use  the 
tape  counter  to  find  and  position  programs.  Be  sure 
to  leave  plenty  of  space  between  programs,  since  the 
tape  counter  is  not  precise,  and  you  could  in- 
advertently write  over  a  program. 

Some  programs  require  48K,  8K  of  which  is  not 
available  with  a  cartridge  plugged  in.  These  pro- 
grams check  for  a  cartridge  and  ask  you  to  remove  it 
before  the  program  will  run.  The  600XL  has  only 
16K,  though,  so  this  shouldn't  be  a  problem.  In  any 
case,  you  can  effectively  remove  (disable)  the  built- 
in  BASIC  by  holding  down  the  OPTION  key  while 
you  turn  on  the  computer. 


6502/6510  Differences 

I  am  a  relatively  new  computer  owner  and  I 
want  to  learn  machine  language  programming. 
As  far  as  I  can  tell,  my  Commodore  64  contains  a 
6510  chip  rather  than  the  more  common  6502. 

A  phone  call  to  Commodore's  corporate  of- 
fices revealed  that  the  machine  language  for  the 
two  chips  is  not  compatible.  The  Programmer's 
Reference  Guide  directs  all  its  instructions  to  the 
6502  processor. 

I  am  unable  to  find  anything  in  print  on  ma- 
chine language  programming  using  the  6510.  1 
would  appreciate  it  if  you  could  help  me  out.  Are 
the  two  chips  incompatible?  If  so,  can  you  tell 
me  how  and  where  I  might  learn  machine  lan- 
guage for  the  6510? 

Dean  Lind 

Unfortunately,  the  representative  you  talked  to  at 
Commodore  was  misinformed.  The  6502  and  the 
6510  microprocessors  are  compatible.  Both  use  the 
same  instruction  set  (LDA,  STA,  etc.)  and  addressing 
format  (low  byte,  high  byte).  Books  on  programming 
the  6502  also  apply  to  the  6510. 

The  only  major  differences  between  the  two 
processors  are  bytes  one  and  two  of  the  6510.  The 
6510  allows  you  to  bank  switch  memory. 

The  Commodore  64  has  20K  of  ROM,  including 
the  BASIC  interpreter,  Kernal,  and  Input/Output 
control  programs.  There  is  also  20K  of  usable  RAM 
memory  "underneath"  this  ROM  memory.  You  can 
switch  out  the  ROM  and  switch  in  the  RAM  mem- 
ory by  bank  selecting  blocks  of  memory.  If  you 
wished,  you  could  turn  your  64  into  a  computer 
with  64K  of  usable  RAM  memory  by  switching  out 
all  of  the  ROMs.  However,  you  would  have  to  sup- 
ply your  own  BASIC  interpreter,  operating  system, 
and  I/O  control  programs.  Without  these,  the  com- 
puter would  simply  freeze,  and  you  wouldn't  be  able 
to  write  or  run  BASIC  or  machine  language  pro- 
grams. For  more  i7jformation  on  bank  selection,  re- 
fer to  your  Programmer's  Reference  Guide. 
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The  VIC-20,  which  is  equipped  with  the  6502 
microprocessor,  does  not  support  bank  selection  of 
ROM /RAM  memory. 

A  book  on  6502  machine  language  program- 
ming will  apply  to  the  6510.  You  might  also  want  to 
take  a  look  at  the  "Machine  Language  for  Begin- 
ners" column  in  computei's  gazette,  our  sister 
publication. 


Printer  Device  Number  Changes 

Is  it  possible  to  change  the  device  numbers  of  a 
printer?  I  want  to  buy  a  second  printer  for  my 
computer,  but  am  unsure  if  I  can  use  both  print- 
ers at  the  same  time. 

Jacques  Poulet 

Usually  the  device  number  cannot  be  altered.  It  de- 
pends on  the  brand  of  printer,  but  most  printers 
have  no  significant  internal  "intelligence"  (no  com- 
puter assistance  inside).  You  could  change  the  de- 
vice number  of  a  disk  drive  because  it  can  be 
programmed  from  the  computer;  it  is  an  intelligent 
device. 

However,  some  models  of  printers  do  allow  you 
to  change  device  numbers  via  a  switch  on  the 
printer  itself  The  new  Commodore  MPS  801,  for 
example,  has  a  three-position  switch  that  allows  you 
to  choose  between  device  numbers  4,  5,  and  6.  And 
some  few  printers  can  be  software  assigned. 


DIM  On  Commodore 

What  happens  to  the  data  when  it  enters  a  DIM 
statement  (array)  from  an  INPUT  statement  or  a 
sequential  file? 

I  teach  computer  programming  part-time  at 
Tulsa  Junior  College.  This  is  my  first  semester 
with  micros.  I  have  a  Commodore  64  and  a  VIC 
1541  disk  drive.  In  advanced  BASIC,  sequential 
files  are  common,  and  are  usually  used  for  search 
and  sort  routines.  When  the  data  is  read  from 
DATA  statements  into  the  arrays,  there  is  no 
problem.  The  sort  or  search  never  stops,  but 
when  that  same  data  is  brought  into  the  arrays 
from  a  sequential  file,  the  sort  or  processing 
stops  many  times,  making  a  16  to  30  minute  pro- 
gram run  for  hours. 

I  have  written  my  own  sequential  file  pro- 
gram, and  later  discovered  and  used  the  one  off 
the  demonstration  disk  that  came  with  the  VIC 
1541  disk  drive.  Both  have  these  stops.  1  have 
tried  about  everything.  If  you  could  give  me  a 
clue,  I  would  appreciate  it. 

Darrel  Henry 

The  pauses  you  see  in  the  program  are  the  result  of 
a  process  called  "garbage  collection."  It's  caused  by 
moving  strings  around. 


DRAGOHRIDERS  OF  PERN: 
nYTHEUNIRIHIDLYSKIES. 


Shooting  down  the  menac- 
ing and  constantly  muitipiying 
Threads  isn't  easy,  but  it's  only 
one  of  the  challenges  in  this 
official  computer  game  version  of 
Anne  McCaffrey's  famous  book 
series. 

Your  strategy  will  be  put  to 
the  test  as  you  try  to  negotiate  alliances  with  Pern's  Lord 
Holders  in  an  attempt  to  form  the  most  powerful  Weyr 
on  the  planet.  Should  you  take  a  firm  stance  or  compro- 
mise? Will  asking  a  Craftmaster  for  assistance  increase 
your  chances  for  success?  Maybe  you  should  invite  prospec- 
tive allies  to  a  Wedding  or  even  a  Dragon  Hatching. 
Remember  to  check  the  Lord  Holders  personality  traits 


first.  It  may  be  critical  to  your  success. 

Numerous  screens  combine  to  create  truly 
unique  and  challenging  game  play.  There's  even  a 
practice  screen  to  sharpen  your  Thread  Fighting 
skills. 

If  you  liked  the  books,  you'll  love  the  game. 
After  all,  how  often  do  you  get  the  chance  to  actually 
fly  a  dragon? 

One  to  four  players,  joystick  and  keyboard 
controlled. 


Strategy  Games  for  the  Action-Game  Player 


Here's  what  happens:  As  new  strings  are  cre- 
ated, the  old  ones  are  not  thrown  away;  they  lie 
dead  in  memory.  Eventually,  memory  fills  up  and 
the  computer  has  to  stop  and  collect  the  strings  that 
are  still  live.  This  takes  time;  the  pauses  are  quite 
noticeable  and  can  be  time-consuming. 

Strings  that  are  completely  defined  within  a 
program— from  DATA  statements  or  from  an  assign- 
ment statement  such  as  X$="HELLO" — are  used 
straight  out  of  the  program  where  they  lie.  These 
strings  don't  need  to  be  collected;  as  you  have 
noted,  there's  no  garbage  collection  delay  when  you 
use  these. 

For  your  type  of  program — sorting  and  search- 
ing— there  are  two  rules  that  will  be  very  helpful  in 
eliminating  delays: 

1.  Don't  move  strings.  Instead  of  sorting  by 
moving  them  around  from  one  part  of  the  array  to 
another — which  creates  garbage — use  an  "index"  to 
keep  track  of  where  a  stritig  belongs  within  a  cer- 
tain sequence.  (More  on  this  in  a  moment.) 

2.  When  you  have  finished  with  a  string,  set  it 
to  a  null  string,  for  example,  A$(21)  =  "".  When  you 
have  disposed  of  almost  all  strings  this  way,  and  are 
ready  to  read  in  another  set  of  strings  from  disk  or 
tape,  force  a  collection  by  using  the  PRE  function, 
for  example,  code  X  =  FRE(0).  Garbage  collection 
will  run  quickly  if  you  have  very  few  strings  left. 
When  you  read  in  the  next  group  of  strings,  they 
will  come  into  the  newly  liberated  memory  space. 

To  illustrate  point  1:  Here's  a  program  to  sort 
an  array  of  strings.  It's  a  bubble  sort,  which  is  not 
very  efficient.  The  point  is  this:  After  the  strings  are 
created,  they  are  never  moved.  Only  the  index  (A%) 
values  move,  and  they  are  numbers,  not  strings,  so 
there  won't  be  any  garbage. 

90  REM  BUBBLE  SORT  -  INDEX  DEMO 
100  N=30:DIM  A$a00) 
200  REM  CREATE  RANDOM  STRINGS 
210FOR  J  =  l  TO  N 
220  A$(J)  =  CHR$(RND{1)*26 +65)  +  CHR$ 

(RND(l)*26+65) 
230  NEXT  J 

300  REM:  CREATE  INDEX 
310  DIM  A%(N) 
320  FOR  J  =  l  TON 
330  A%(J)=J 
340  NEXT  J 

400  REM:  SORT  INDEX 
410  FOR  J=N-1  TO  1  STEP  -1 
420  FOR  K=l  TO  J 
430  REM:  GET  INDEX  FOR  K,  K  +  1 
440  X  =  A%(K)  :Y=A«/o(K  +  l) 
450  REM:  FLIP  IF  OUT  OF  ORDER 
460  IF  A$(X)>A$(Y)  THEN  A%(K  +  1)  =  X:A%(K)  =  Y 
470  NEXT  K,J 

500  REM:  PRINT  RESULTS 
510  FOR  J  =  l  TON 
520  PRINT  A$(A%(J)) 
530  NEXT  J 

Study  this  program  to  see  how  the  strings  are 
sorted,  but  not  moved. 


There  are  other  rules  on  how  to  handle  garbage 
collection;  the  ones  above  will  do  the  job  for  your 
application. 

Tl  CALL  KEY 

I  recently  acquired  a  TI-99/4A  and  wondered  if 
you  would  explain  the  use  of  the  CALL  KEY 
command? 

David  Stinchcomb 

The  CALL  KEY  statement  has  caused  confusion  for 

many  TI  users.  The  KEY  subprogram,  designed  to 
return  a  single  keystroke  value,  requires  three 
parameters:  a  key  unit,  a  return  variable,  and  a  sta- 
tus variable.  The  statement  takes  the  format: 

CALL  KEY  (n,K,ST) 

where  n  is  the  key  unit,  K  is  the  return  variable, 
and  ST  is  the  status  variable. 

The  key  unit  used  in  the  CALL  KEY  statement 
determines  the  keyboard  configuration  assumed  by 
the  computer.  Six  key  unit  values  (0-5),  or  keyboard 
configurations,  are  available  on  the  TI-99/4A.  The 
three  key  units  generally  used  are  0,  1,  and  2.  A  key 
unit  of  0  refers  to  the  console  keyboard.  Key  units  1 
and  2  map  the  console  keyboard  as  split  keyboards 
(a  value  of  1  to  read  the  left  side  of  the  keyboard,  a 
value  of  2  to  read  the  right),  or  read  the  fire  buttons 
on  joystick  1  and  2,  respectively. 

When  a  CALL  KEY  statement  is  executed  with 
a  key  pressed,  some  value  will  be  assigned  to  K  (in 
our  example  above).  The  value  given  to  K  will  de- 
pend on  the  key  pressed  and  the  key  unit  used  in 
the  CALL  KEY  statement.  If  you  use  a  key  unit  of 
zero,  K  will  correspond  to  the  ASCII  value  of  the 
key  being  pressed.  For  other  keyboard  configura- 
tions, the  value  of  K  will  vary  as  noted  in  the  TI 
User's  Reference  Guide  (pp.  11-87  to  11-89).  Eigh- 
teen in  K  signifies  that  the  fire  button  was  pressed. 

The  final  parameter  used  in  the  CALL  KEY 
statement  is  the  status  variable  (ST).  A  nonzero 
value  returned  for  ST  indicates  that  a  key  was  being 
pressed  when  the  CALL  KEY  statement  was  executed. 

CALL  KEY  can  be  used  to  get  a  desired  re- 
sponse from  the  program  user.  If  you  want  to  test 
for  any  keystroke  (with  key  unit  0),  you  would  use 
the  following  two  lines: 

10  CALL  KEY(0,K,ST) 
20  IF  ST  =  0  THEN  10 

The  program  repeatedly  loops  back  to  line  20  until 
some  key  is  pressed. 

If  you  want  the  program  to  accept  only  a  spe- 
cific response  from  the  user,  such  as  Y  for  "yes," 
you  could  add  these  lines: 

5  PRINT  "TYPE  THE  Y  KEY" 
30  IF  K<>89  THEN  10 

Until  the  Y  key  is  pressed,  the  program  will  loop 
back  to  10. 
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Thanks  To  CompuServe's 

CB  Simulator, 

"Digital  Fox"  AccESSED"DATAHARf And 

Proceeded  To  An"Altared"State. 


The  CB  Simulator,  where 
CompuServe  Subscribers  can 
Access  Friends  and  Influence 
People  on  72  Different 
Channels. 

Just  pick  your  handle  and  get 
on  line.  From  math  to  matrimony, 
there's  always  someone  out  there 
who  speaks  your  language.  Friends 
from  all  over  the  U,S.  and  Canada  are 
at  it  24  hours  a  day.  Talking  tech  or 
just  having  fun.  And  if  you've  got  a 
secret,  just  use  the  CB  Scrambler. 


That'll  fool  the  "lurkers;'  those  CB 
"see  it  alls"  who  get  their  kicks 
by  watching.  Or  you  can  always  use 
the  private  talk  mode  for  guaranteed 
one-to-one  conversation. 

The  CB  Simulator  is  just  one 
of  CompuServe's  many  electronic 
communications  options  that 
include  a  National  Bulletin  Board, 
Professional  Forums  and  Electronic 
Mail.  Plus,  there's  a  world  of  on-line 
information  and  entertainment  all 
for  the  price  of  a  local  phone  call 
plus  connect  time, 


You  can  access  CompuServe 
with  almost  any  computer  and 
modem,  terminal  or  communicating 
word  processor 

To  receive  your  illustrated 
guide  to  the  CompuServe  Information 
Service  and  learn  how  to  subscribe, 
call  or  contact: 

CompuServe 

Consumef  Information  Service.  P  O.  Box  2021 2 
500C  Arlington  Centre  Blvd  .  ColjmbuS.  OH  43220 

800-848-8199 

lnOliiocall614-457.0S02 
An  H&B  Block  Company 


Commodore  Machine  Language 
Clear 

I  have  been  trying  to  develop  a  monitor  program 
for  the  VIC-20  and  am  having  a  difficult  time 
creating  a  routine  to  clear  the  screen.  Is  there  any 
way  to  clear  the  screen  without  getting  the 
READY  prompt? 

Stan  Payne 

There  are  several  ways  to  dear  the  screen  from  ma- 
chine language.  The  easiest  way  is  to  assemble  the 

following: 

LDA   #$93    ;the  equivalent  of  CHR$(147) 
JSR     $FFD2  ;print  it 

This  routine  will  work  on  both  the  VIC  and  64.  In- 
cidentally, you  can  also  use  it  to  home  the  cursor. 
Just  replace  the  $93  with  $13.  The  hex  number  93  is 
the  same  as  the  character  that  clears  the  screen  in 
BASIC  and  $13  is  the  same  as  CHR$(19)  which 
homes  the  cursor. 

Another  way  to  accomplish  the  same  result  is 
to  assemble  the  following: 

JSR  $ES5F  ;cleai  the  screen  and  home  the  cursor 
On  the  64  the  routine  is  located  at  a  different  loca- 
tion, thus  the  coding  is  different: 

JSR     $E544  ;  clear  and  home 

If  you  just  wanted  to  home  the  cursor  on  either  ma- 
chine you  could  JSR  to  $E581  on  the  VIC  or  $E566 
on  the  64.  Although  these  are  two  quick,  easy  ways 


to  clear  the  screen,  there  is  yet  another.  You  could 
write  your  own  routine  to  clear  the  screen.  The  rou- 
tine would  need  to  store  a  $20  at  every  screen  loca- 
tion, $20  is  the  number  for  a  blank  character. 

Commodore  1541  Drive  Grounding 
Error 

In  your  May  issue  you  printed  a  letter  from  Jay 
Elmore  regarding  read  errors  on  the  1541  disk 
drive.  After  buying  a  drive  for  my  Commodore 
64,  I  discovered  that  it  was  giving  me  error  23 
and  27.  Both  are  read  errors.  I  returned  the  drive 
to  the  dealer  and  he  tested  it  on  a  64  and  discov- 
ered no  problems  with  it.  I  took  the  drive  back 
home  and  carefully  read  the  manual  that  comes 
with  it  and  discovered  that  errors  23  and  27  can 
be  caused  by  grounding  problems.  I  checked  the 
electrical  outlet  where  the  drive  was  plugged  in 
and  discovered  that  the  ground  plug  was  not 
properly  connected.  After  fixing  this,  I  haven't 
had  any  problems  with  my  drive. 

Ron  Restivo 


COMPUTE!  welcomes  questions,  comments,  or 
solutions  to  issues  raised  in  this  column.  Write  to: 
Readers'  Feedback,  COMPUTE!  Magazine,  P.O. 
Box  5406,  Greensboro,  NC  27403.  COMPUTE! 
reserves  the  right  to  edit  or  abridge  published 
letters.  © 


Vic  20'"  or  Commodore  64™  Computer 

This  exciting,  new  weather  package 

allows  you  to  learn,  monitor,  and  predict 

the  weather  using  the  same  equipment  as 

the  pros. 


rYour  Own  Weatherman 

The  new  HAWS  (Home  Auto- 
tic  Weaiher  Station)  com- 
bines a  quality  weather  sensor 
with  software  to  let  you  track 
weather  conditions  inside  or 
outside  your  honne.  HAWS  moni- 
tors weather  data  including  dew 
point,  temperature,  humidity, 
and  atmospheric  pressure;  plots 
historical  data  and  graphically 
displays  weather  trends;  deter- 
mines the  comfort  and  chill  fac- 
tors to  help  you  dress;  HAWS 
even  Jorecasts  the  weather  and 
compares  your  predictions  to 
the  local  weatherman's. 

HAWS  uses  the  same  sensor 
employed  by  weather  services  in 
60  countries  worldwide.  The 
HAWS  package  costs  only 
$199.95  and  includes  the  sensor, 
cassette  or  floppy  disc  program, 
15-toot  cable  witji  connector  for 
the  computer,  and  a  complete 
user's  manual. 

Send  today  or  call  loll  free  to 
order  your  HAWS  package. 


Ordering  Information 
Send  S199.95  in  check  or  money  order  payable  to 
Vaisala.  Inc.  Include  name,  address,  telephone  num- 
ber, your  computer  model  (VIC  20  or  Commodore  64), 
and  program  preference  (tape cassetteorfloppy  disc). 
^^^  Or  call  tofi  free  to  place  your  order 
llCSi}  ^lajor  credit  cards  accepted, 

^^^  Dealer  inquiries  invited. 

1-800-227-3800  ext  haws 

VIC  20  and  Commodore  64  are  Irademarks  of  Commodore  Electronics  Ltd. 


Learn/Teach  Meteorology 

More  than  a  toy  or  game. 
HAWS  provides  the  first  oppor- 
tunity to  use  your  computer  as  a 
data  sampler  and  data  analysis 
system  for  meteorology,  allow- 
ing the  user  to  interact  with 
incoming  data  to  monitor  and 
forecast  weather  conditions. 
HAWS  includes  an  instructive 
software  program  and  a  com- 
plete user's  manual  that  teaches 
meteorological  terms  and  equa- 
tions to  allow  anyone  to  quickly 
grasp  weather  concepts  either  at 
home  or  in  the  classroom.  Sim- 
ple plug-in  components  and 
easy  hookup  also  means  you 
can  free  up  your  computer  at 
any  time  for  other  duties,  HAWS 
is  a  great  educational  tool  for 
anyone.  Order  today. 

•»  VAISllLfl 

VAISALA  INC. 

2  TOWER  OFFICE  PARK 

WOBURN,  MA  01801 
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PerscMnaUty. 


Meet  the  Axiom  GP-550. 

The  First  Real  Personal  Printer  for 

Home  and  Business  —  Just  $299! 


Dual-Mode  Printing: 

Choose  the  higher-speed 
draft  mode  or  the  beauti- 
ful Near-Letter-Quality 
printout.  •  Multiple  Fonts: 
Include  pica,  elite,  con- 
densed, proportional,  italic,! 
sub-script,  super-script, 
boldface  and  underline. 
•  Super-Quiet:  Quiet 
operation  is 
essentia!  whether       , 
for  home  or  ^ 

business  and 
the  GP-550  is 
quieter  than 
most. 


•  Exceptional  Graphics:  Made 

possible  by  accurate  placement 

of  up  to  640  dots  per  line. 

•  140  Character  Set:  You  can  print 

96  ASCII  characters  plus  44 

additional  symbols.  •  Three 

Copies:  Can  be  printed  on  4.5"  to 

10"  wide  fan-fold  or  cut-sheet 

paper.  •  Other  Features:  Pin  and 

friction  feed. 

bottom  feed  for 

labels,  and 

cassette  ink 

ribbon. 


Imagine  doing  all  your  word  processing, 
data  processing,  graphics  and  documenta- 
tion on  a  printer  that  sells  for  only  $299.  You 
can  stop  imagining!  The  Axiom  GP-550  — 
which  offers  both  draft  mode  and  Near- 
Letter-Quality  printing  —  is  here. 
IBM-PC  Compatible: 

The  GP-550  is  available  with  control  codes 
and  character  set  that  match  with  IBIVt-PC 
and  all  of  its  "Look  Mikes'.'  This  means 
that  your  software,  including  Lotus  1-2-3, 


will  work  with  our  GP-550  PC  model. 
Dlrect-Connect  to  Atari,  Apple,  Commodore 
and  T.L: 

More  good  news.  Axiom  has  additional 
models  of  the  GP-550  which  include  built-in 
interfaces  for  the  most  popular  personal  com- 
puters. These  "Direct- Connect"™  versions  of 
the  GP-550  will  work  with  your  computer 
without  additional  interface  or  cable,  lust  plug 
our  printer  into  your  computer  and  start 
printing.  Priced  from  $319,  including  interface. 


#^ 

f?l 

^ 

GP-550CDforVIC-20;C64         GP-S;OAT  for  All  Atari         CP-550AP  for  Apple  Il/lle 


GP-550T(  for  99/4A 


AXIOM     CORPORATION 
1014  Griswold  Avenue  •  San  Fernando,  CA  91340  •  Telephone:  1818}  365-9521  -TWX:  910-496-1746 


GP-Series  Printers  Built  for  Lasting  Quality  by  SEIKOSHA. 


Computers  And  Society 


David  D.  Thornburg,  Associate  Editor 


Discovery-Based  Learning 
And  Teenagers 


On  the  Saturday  before  the  Summer  Consumer 
Electronics  Show  in  Chicago,  I  was  speaking  at  a 
Logo  workshop  in  northern  California.  Much  of 
the  emphasis  in  one  of  my  talks  was  on  the  im- 
portance of  discovery-hased  learning  for  all  ages, 
not  just  for  the  child  in  elementary  school.  While 
I  have  been  emphasizing  this  topic  in  my  talks 
for  several  months,  most  people  seem  content  to 
let  Logo  be  a  tool  for  the  younger  computer  user. 

Educational  Software 

As  I  drove  to  the  airport  to  catch  my  plane  to 
Chicago,  I  wondered  if  this  reluctance  to  bring 
the  power  of  educational  environments  like  Logo 
to  older  students  was  also  evident  in  other 
educational  software.  After  all,  the  mention  of 
educational  software  usually  conjures  up  visions 
of  activities  for  the  younger  child.  Whether  these 
activities  are  drills  associated  with  a  specific  sub- 
ject or  are  open-ended  activities  designed  to 
teach  problem-solving  skills,  the  fact  remains 
that  only  2  percent  of  the  current  educational 
software  appears  to  be  directed  to  teenagers. 
Some  people  might  argue  that,  once  a  child  has 
entered  the  teenage  years,  educational  software 
isn't  needed.  If  a  teenager  wants  to  use  a  com- 
puter, why  not  just  let  him  or  her  write 
programs. 

In  fact,  there  are  several  reasons  why  teen- 
agers should  have  access  to  good  educational 


David  Thomburg  is  an  author  and  speaker  who  has  been 
heavily  involved  zvith  the  personal  computer  field  since 
1978.  His  main  interest  is  in  making  computers  respon- 
sive to  people's  needs.  He  is  the  inventor  of  the  KoalaPad 
graphics  tablet  and  is  the  author  of  nine  books  apout 
programming  including  Computer  Art  and  Animation: 
A  User's  Guide  to  Atari  Logo,  The  KoalaPad  Book, 
and  Exploring  Logo  Without  a  Computer  (Addison- 
Weslcy).  His  101  Ways  to  Use  a  Macintosh  will  appear 
soon  from  Random  House.  He  has  been  called  "an  enthu- 
siastic advocate  for  a  humanistic  computer  revolution," 
and  his  editorial  opinions  have  appeared  in  COMPUTE! 
since  its  inception. 
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software: 

1.  Teenagers  are  in  the  process  of  forming 
career  decisions.  Controlled  exposure  to 
computer  environments  can  demonstrate  the 
richness  of  this  field  in  a  way  that  tran- 
scends purely  recreational  applications  of 
computers. 

2.  For  those  students  who  are  already  in- 
terested in  computers,  computer-based 
instruction  in  problem-solving  methods  and 
the  development  of  programming  style  can 
help  these  students  use  computers  more 
effectively  in  their  jobs. 

3.  Students  of  all  ages  benefit  from  becom- 
ing better  problem  solvers.  So  much  of  our 
focus  has  been  on  problem-solving  software 
for  the  young  (including  such  excellent  pro- 
grams as  The  Factory  by  Sunburst)  that  we 
can  easily  lose  sight  of  the  fact  that  the  ac- 
quisition of  problem-solving  skills  is  im- 
portant for  learners  of  all  ages. 

To  see  what  can  happen  to  educational  software 
for  teenagers,  we  should  first  look  at  the  other 
two  areas  where  these  children  use  computers^ — 
at  home  and  at  the  arcade. 

Interactive  TV 

As  I  look  at  popular  computer  activities  in  homes 
and  arcades,  there  seems  to  be  a  major  distinc- 
tion emerging  between  the  two.  Arcade  software 
has  continued  its  focus  on  coordination  and  skill 
games.  As  the  technology  has  advanced,  these 
games  have  become  more  sophisticated.  For 
example,  several  popular  games  use  computer- 
controlled  video  disks.  Except  for  advances  in 
technology,  however,  these  games  seem  to  be 
stuck  in  a  niche  that  one  might  characterize  as 
interactive  television. 

Popular  home  software  has  taken  a  different 
approach.  The  home  user  is  not  able  to  run  out 
and  buy  new  technology  every  three  months  or 
so,  and  the  challenge  has  thus  been  to  make  the 
existing  technology  become  ever  more  useful 


WHO'S  GOT  7  NEW  BUSINESS  SYSTEMS 
FOR  ME  ?^V  TIMEWORKS. 


Here's  a  series  of  seven 
easy-to-use  Manage- 
ment Information  Re- 
ports flexibly  designed  to 
accommodate  all  small 
and  medium  size  busi- 
ness accounting  require 
ments  for  Commodore  64 ' 
computers. 

Inventory  Management  / 
Sales  Analysis  Management  / 
Accounts  Receivable  Manage- 
ment and  Invoicing  /  Accounts  Payable 
Management  and  Checkwriting  /  Payroll 
Management  /  Cash  Flow  Management  / 
General  Ledger 
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other  TIMEWORKS  MANAGE- 
MENT INFORMATION  pro- 
grams into  a  fully  integrated 
accounting  system. 

A  Manual  written  in  easy-to- 
understand,  people-friendly 
English,  abundantly  illustrated 
to  provide  further  clarity 
and  eliminate  guesswork. 
Password  Protection,  to 
prevent  unauthorized  ac- 
cess to  confidential  data. 
Suggested  Retail  List  at 
S59.95  each. 

Customer  Support  Plan 

Timeworks  Telephone  Con- 
sulting Service  is  available  to 
all  users  at  no  charge  to  support  your  ir^tallotion 
and  ongoing  operations. 

For  further  details,  contact  your  local  Dealer 
or  Timeworks,  Inc.  Choose  from  a  host  of 
Commodore  64  programs.  Now  at  your  favorite 
dealer.  Or,  contact  Timeworks,  PO.  Box  321, 
Deerlield,  IL  60015.   312-948-9200. 


General  Overview 

Each  system  includes: 

A  Menu-driven  program,  sophisticated  enough 
to  provide  complete  Management  and  Product 
information,  yet  requires  no  prior  computer  or 
accounting  knowledge  to  operate. 

A  unique  method  of  creating  your  own,  un- 
limited array  of  reports  —  easily  and  quickly. 
YOU  select  the  information  you  want,  and  YOU 
determine  the  sequence  of  the  report  column 
headings, 

A  program  which  can  be  used  by  itself  ( stand- 
alone), or  can  be  interfaced,  one  at  a  time,  with 
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SOFTWARE  WITH  SUBSTANCE 
-FOR  EVERYONE. 


"Eegisteied  Tiademark  ol  Commodore  Computet  Srstems.  c  1983  Timewoilcs.  Inc.  All  rights  leserred. 


THE  HRST  HUWILY 


Introducing  the  home 
productivity  software 
Commodore™  IBM™  and 
Apple™  owners  have  been 
waiting  for.  Three  easy  to 
use,  powerful  programs 


i    r   r 


WRITER' 


from  Creative  Software. 

Now  you  can  run  low 
cost,  full-featured  software 
that  performs  the  most  sought 
after  functions. 

Creative  Writer™  Crea- 
tive Filer.™  And  Creative 
Calc!"  Each  developed  by 
Creative  Software  and 
designed  to  give  you  the 
most  for  your  software  dollar. 


HASSLMREE 
WORD  PROCESSING. 

Finall)^  there's  Creative 
Writer.  A  simple  word  proc- 
essing program  anyone  can 
start  using  in  just  fifteen 
minutes.  With  Creative 
Writer,  editing  functions 
similar  to  the  ones  found  in 
more  expensive  programs 
are  at  your  fingertips. 

And  best  of  all,  you  won't 
have  to  relearn  your  com- 
puter's keyboard  because  all 
cursor  control  keys  work 
similar  to  your  com- 
puter's standard  edit- 
ing mode.  You'll  even 
be  able  to  use  the  func- 
tion keys  to  perform 
more  advanced 
process- 


ing tasks— move  blocks  of 
type,  search  forward,  even 
search  and  replace—  all 
with  just  a  few  key  strokes. 

Plus  "help"  screens  are 
always  ready  to  prompt  a 
desired  function.  And  one 
more  thing— every  Crea- 
tive Writer  box  comes 
with  a  free  Verbatim 
minidisk!  Creative 
Writer.  The 
easiest  way  to 
replace  your 
typewriter. 
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OF  PRODUCTIVITY. 


PUT  YOUR 
FILING  CABINET  ON  DISK. 

Store  your  collection  of 
index  cards  and  faded  notes 
in  the  attic  where  they 
belong.  Now  there's  Crea- 
tive Filer— the  simplest  way 
to  organize  and  access  all 
your  files. 

Imagine,  names  and 
addresses,  home  and  auto 
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records,  club  memberships 
and  inventories,  all  on  a 
computer  disk  and  auto- 
matically fQed  in  alpha- 
betical order  for  instant 
access. 

Isn't  that  one  of  the  reasons 
you  bought  your  computer? 


CREATIVE     WRITER 


I  Previe*  entire  docuunt 
'  Seirch  and  rtplace 
Headers  and  loolers 


Help  screens 
Move  lext 


CREATIVE      FILER 


Unrestricted  formal 
Cliinge  iDrmal  alter  cresliDfl 


Report  writer  includEd 
Autamalic  alphibelizing 
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-■  Adjustalile  column  width  '  Mil  text  and  numeric  data 

>  12  digit  accuracy  °  Within  cell  editing 

>  Menu  of  commanils  •  FlMibilily  Df  design 


EACH  PROGRAM  IS  FULL.FEATURED  WITH  IN1EGRATED  CAPABILITIES. 
CDMMODDRE  U.  IBM  PC.  PCjr.  AKD  APPLE  VERSIONS  AVAILAtlE. 


A  SPREADSHEET 

PROGRAM  THAI  REALLY 

ADDS  UP. 

Analyze  your  household 
expenditures.  Plan  invest- 
ments. Even  keep  track  of 
business  and  taxable  ex- 
penses, all  on  Creative  Calc. 

Just  enter  your  numbers 
and  totals  are  automatically 
calculated  and  transposed 
onto  a  spreadsheet  format. 
Review  your  document  and 
print  out  any  or  all  of  your 
financial  statement. 

But  the  real  number 
crunching  power  is  demon- 
strated when  you  update 
figures.  Enter  changes  and 
Creative  Calc  will  recalcu- 
late all  related  numbers, 
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re-entering  them  into  your 
spreadsheet  format. 

Keep  your  financial  mat- 
ters in  the  black  with 
Creative  Calc. 


ALL  THREE  PROGRAMS 

ARE  INTEGRATED 

FOR  MORE  COMPUTING 

POWER. 

Creative  Filer  and  Creative 
Calc  work  together  with 
Creative  Writer  allowing  you 
to  customize  documents 
combining  text,  data,  and 
numeric  tables. 

Ask  for  the  first  family  of 
productivity  software  for 
your  writing,  filing  and 
calculating. 

New  from  Creative 
Software. 

'  Itoilleil  line  on)y. 
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COMMODDBE  64.  IBM,  IBM  PC,  PCjr.  ANO  APPLE  ARI 
TRADEMARKS  OF  COMMODORE  ELECTRONICS.  LTD.. 
IBM  AND  APPLE  COMPUTER  RESPECTIVELY. 
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with  each  new  wave  of  products.  While  it  is  true 
that  popular  home  titles  continue  to  stress 
entertainment  value,  the  most  popular  computer 
games  appear  to  be  those  that  let  the  player  cre- 
ate his  or  her  own  levels  or  game  fields.  Anyone 
who  doubts  this  need  only  look  at  the 
overwhelming  popularity  of  Br0derbund's  Lode 
Runner.  Every  Lode  Runner  enthusiast  I  know 
spends  most  of  the  game  time  creating  new 
levels  to  play. 

The  Fourth  Generation 

The  popularity  of  construction  set  software  is  not 
new,  as  readers  of  this  column  know.  Programs 
like  Pintail  Construction  Set  (Electronic  Arts), 
Rockij's  Boots  (The  Learning  Company  [TLC]), 
and  Dancing  Bear  (Koala  Technologies)  have  been 
popular  largely  because  they  allow  the  user  to 
make  unique  creations  within  the  context  of  a 
predefined  activity.  The  task  of  creating  new 
games  in  Lode  Runner  or  Pinball  Construction  Set 
is,  quite  simply,  the  task  of  creating  a  computer 
program.  Construction  sets  are  examples  of 
fourth  generation  programming  languages,  and 
the  fact  that  these  programs  are  so  popular  in  the 
home  market  is  quite  heartening. 

These  programs  are  helping  their  users  de- 
velop problem-solving  strategies  and  other 
higher-order  thinking  skills.  Since  they  can  (and 
are)  developing  these  skills  at  home,  they  should 
probably  also  be  able  to  develop  them  at  school 
as  well.  Unfortunately,  some  teachers  can't  see 
past  the  game  aspects  of  these  programs,  and 
have  thus  banned  them  from  the  classroom.  This 
makes  as  much  sense  as  banning  humorous  lit- 
erature from  the  English  classroom.  Teachers 
should  look  for  the  deeper  significance  in  the 
newer  computer  games. 

With  this  background  in  mind,  1  walked 
through  the  massive  computer  exhibits  at  the 
CE5  looking  for  some  sign  of  educational  soft- 
ware that  would  appeal  to  the  entertainment  and 
cognitive  skill  levels  of  the  teenage  user.  Not 
surprisingly,  I  found  the  answer  at  the  home  of 
Rocky's  Boots — TLC.  Long  known  for  their  sup- 
port of  the  young  computer  user,  TLC  decided  to 
create  a  product  for  the  older  child.  The  result  of 
their  effort  is  Robot  Odyssey  I,  an  entertaining 
adventure  game  that  is  also  a  sophisticated 
programming  language.  As  the  first  product  in 
TLC's  "DigiWorld"  series,  it  represents  a  signifi- 
cant contribution  to  open-ended  educational  soft- 
ware geared  to  the  teenage  (and  older)  market. 

Players  begin  by  falling  into  Robotropolis,  a 
futuristic  underground  city  inhabited  by  robots. 
The  object  is  to  escape  this  world  and  return  to 
civilization.  This  is  accomplished  by  constructing 
robots  that  help  the  players  work  their  way  up- 
ward through  several  layers  of  this  underground 
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city.  Each  layer  has  new  obstacles  and  antago- 
nists that  require  robots  with  different  skills  to 
help  in  the  escape.  As  players  get  closer  to  the 
top,  the  challenge  becomes  more  difficult. 

Complex  Circuitry 

What  distinguishes  Robot  Odyssey  I  from  other 
multilevel  adventure  games  is  that  the  player 
must  construct  robots  that  are  programmed  to 
display  certain  behaviors  needed  to  avoid  or  neu- 
tralize obstacles.  The  task  of  creating  these  robots 
involves  learning  how  to  "wire"  the  robots  to 
perform  certain  tasks.  A  special  environment 
called  the  Innovation  Lab  lets  the  player  work  on 
robot  design.  There  are  three  robots  at  the  play- 
er's disposal.  Each  robot  resembles  a  spaceship 
and  has  four  thrusters  to  move  it  in  four  direc- 
tions. The  robot  also  has  a  claw  that  can  be  used 
to  pick  up  things,  and  bumpers  to  tell  when  the 
robot  has  bounced  against  a  wall  or  other  ob- 
stacle. By  interconnecting  the  bumpers  with  the 
appropriate  thrusters,  the  player  can  create  a  ro- 
bot that  solves  simple  mazes. 

More  elaborate  programs  can  be  created  with 
the  aid  of  integrated  circuit  chips  built  from  stan- 
dard logic  elements  (AND,  OR,  XOR,  etc.).  Once 
an  array  of  these  elements  has  been  inter- 
connected and  brought  to  the  desired  pins  on  the 
chip,  the  resultant  circuit  is  burned  into  a  final 
chip  that  can  be  carried  inside  a  robot  to  be  con- 
nected with  the  rest  of  the  circuitry.  Amazingly, 
a  finished  chip  can  be  carried  inside  another 
chip,  and  this  recursive  nesting  can  take  place  up 
to  40  times.  This  allows  the  creation  of  quite 
complex  circuits. 

Inteiligent  Robots 

Each  of  the  three  robots  becomes,  in  effect,  a 
fully  programmed  entity.  All  three  robots  can 
carry  out  their  tasks  simultaneously.  This  is  like 
having  a  word  processor,  a  spreadsheet  program, 
and  a  videogame  running  on  your  computer  at 
the  same  time.  But  one  of  the  neatest  aspects  of 
these  robots  is  that  they  can  send  messages  to 
one  another  using  their  antennae.  For  example, 
each  robot  could  be  programmed  to  look  for  fuel 
crystals.  As  soon  as  one  robot  finds  a  crystal,  it 
can  send  a  message  to  the  other  robots  to  stop 
looking  for  fuel  and  to  find  the  first  robot  in- 
stead. This  type  of  programming  in  which 
computational  objects  send  messages  to  each 
other  is  reminiscent  of  the  sorts  of  things  one  ex- 
pects from  Smalltalk,  LISP,  or  Logo — not  the  sort 
of  thing  one  expects  from  a  videogame. 

To  properly  explore  Robot  Odyssey  I  would 
take  far  more  space  than  1  have.  Suffice  it  to  say 
that  if  teenagers  have  only  2  percent  of  the 
educational  software,  this  program  shows  that 
they  won't  need  much  more.  @ 


Compumate  2100 
from  SWINTEC 
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IT'LL  INTERFACE  WITH  YOUR 
COMPUTER  AND  YOUR  BUDGET 


SWINTEC'S  Compumate  2100  letter-quality  copy  printer 
has  built-in  parallel  and  serial  interfaces  that  make  it  com- 
patible with  your  computer ...  no  matter  whose  computer 
you  use.  What's  more,  its  very  modest  price  tag  of  $649 
is  no  more  than  you'd  pay  for  an  inexpensive  dot  matrix 
printer. 

It  adds  instant  letter-quality  word  processing  to  your  com- 
puter capabilities.  !t  handles  correspondence . . .  prints  out 
charts  and  financial  projections ...  in  fact,  gives  you  a 
sharp,  clear  hard  copy  of  anything  in  the  computer. 

Microprocessor-controlied 
Compumate  has  a  logic- 
seeking  algorithm  that  skips 
over  white  space  to  print  up  to 
20  characters  a  second.  The 
100-character  daisy  wheel  print 
element  is  available  in  any  one 
of  the  1 0  most  wanted  type 
faces.  More  features;  10. 12 
and  15  pitch  selections  and  a 
256-character  buffer,  plus  LED 


D  Send  me  more  information  about  tlie  Compumate  2100. 
D  Have  a  dealer  contact  me  for  a  demonstration. 
D  Contact  me  about  becoming  a  SWINTEC  dealer. 

NAME 

COMPANYJOEALERSHIP 

ADDRESS  


displays  tell  you  when  your  Compumate  is  at  the  ready. 
The  Compumate  2100  requires  no  special  training  to 
operate.  It  has  its  own  simple  self-testing  procedures  and 
is  backed  by  the  renowned  SWINTEC  network  of  dealer 
service  professionals. 

Why  pay  more  for  a  printer  and  get  much  less?  Join  the 
switch  to  SWINTEC,  At  your  dealer's  now,  or  return  the 
coupon. 

Dealers,  too,  are  invited  to  contact  us  about  carrying  the 

Compumate  and  the  full 
SWINTEC  line  of  quality  office 
equipment  including  electronic 
typewriters  and  calculators. 


CITY 


STATE 


ZfP 


TELEPHONE 


4-3  C-8-84 


CORPORATION 

23  Poplar  Street 
East  Rutherford,  New  Jersey 
201/935-0115  Outside  New  Jersey, 
call  toll-free  800/225-0867 


Questions  Beginners  AsIc 


Tom  R  Holfhill,  Stcff  Editor 


Are  you  thinking  about  buying  a  computer  for  the 
first  time,  but  you  don't  know  much  about  com- 
puters? Or  maybe  you  just  purchased  a  computer 
and  are  still  a  bit  baffled.  Each  month  in  this  col- 
umn, COMPUTE!  ivill  answer  some  cjuestions  often 
asked  by  beginners. 


QHow  long  does  a  floppy  disk  last?  If  I  have 
some  disks  that  are  more  than  a  year  old, 
should  I  copy  them  onto  new  disks?  How  can 
you  tell  if  a  disk  is  wearing  out? 

A  The  lifetime  of  a  floppy  disk  largely  depends 
on  how  heavily  it  is  used  and  how  carefully 
it  is  handled. 

It's  doubtful  that  you  would  actually  wear 
out  a  disk  with  normal  home  use.  One  well- 
known  manufacturer  of  floppy  disks  (3M-Scotch) 
guarantees  its  products  for  3,5  million  passes  per 
track.  3M  calculates  that  if  you  updated  the  disk 
(rewrote  every  track)  once  every  hour,  it  would 
take  more  than  200  years  to  exceed  3.5  million 
passes.  Not  many  home  computer  owners  would 
use  a  disk  that  heavily.  Some  disk-intensive  busi- 
ness programs  which  run  40  hours  a  week  might 
approach  that  many  passes  in  much  less  time 
than  200  years,  in  which  case  an  alternative 
should  be  considered — perhaps  a  hard  disk  or  a 
RAM  disk.  But  the  casual  or  moderate  user  has 
little  to  worry  about.  At  COMPUTE!  we  have  some 
disks  that  get  fairly  heavy  use  for  storing  word 
processing  files,  and  after  two  years  they're  still 
going  strong. 

A  floppy  disk's  lifetime  can  be  drastically 
shortened,  however,  if  it  isn't  handled  and  stored 
correctly.  In  careless  hands  a  disk  might  not  even 
last  ten  minutes.  Disks  are  particularly  vulnerable 
to  magnetic  fields  from  monitors  and  TV  sets, 
spilled  drinks,  cigarette  ashes,  extremes  of  heat 
and  cold,  heavy  weights,  ballpoint  pens  used  to 
mark  on  labels,  and  even  chemical  fumes. 

Unfortunately,  the  first  clue  which  indicates 
a  disk  is  going  bad  probably  will  be  a  lost  pro- 
gram or  a  lost  file.  One  day  you'll  confidently 
slip  the  disk  into  the  drive  and  discover  that  a 
certain  file  won't  load.  That's  why  you  should  al- 
ways keep  at  least  one  backup  copy  of  important 
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files  on  another  disk  or  tape. 

There  is  one  clue  you  can  watch  for,  though — 
if  you  regularly  clean  your  disk  drive's  read/ 
write  head  and  notice  one  day  that  it's  much 
dirtier  than  usual,  it  could  mean  that  the  mag- 
netic coating  on  one  of  your  disks  is  starting  to 
flake  off.  It  could  also  mean  that  you  bought 
some  poor  quality  disks. 

^^  On  my  Commodore  64,  when  using  the 
^■1  command  PRINT  7t2,  the  computer  will 
come  up  with  the  answer  49.0000001.  Is  this  a 
bug  in  the  computer? 

A  Not  really.  It's  a  rounding  error  caused  by  the 
way  the  Commodore  64  calculates  exponen- 
tiation. When  you  ask  the  computer  to  figure  7^ 
it  doesn't  actually  multiply  7*7.  Instead,  it  uses 
logarithmic  tables.  Rather  than  engaging  in  a 
long  discussion  of  higher  mathematics,  let's  just 
say  that  these  tables  sometimes  lead  the  com- 
puter to  an  answer  which  is  slightly  off.  If 
49.0000001  isn't  accurate  enough  for  your  pur- 
poses, you  can  either  PRINT  7*7  or  PRINT 
lNT{7t2),  which  extracts  the' integer  from  the 
result. 

The  Commodore  64  isn't  the  only  micro- 
computer which  suffers  from  this  problem  by 
any  means.  Certain  math  operations  will  result  in 
very  small  rounding  errors  on  anything  from  an 
Atari  to  an  IBM  PC.  On  an  Atari  with  the  BASIC 
cartridge,  for  example,  PRINT  2"2  {equivalent  to 
PRINT  2T2  on  a  Commodore)  comes  out  to 
3.99999996,  while  PRINT  2*2  yields  the  correct 
4.  The  problem  was  fixed  with  the  BASIC  built 
into  the  Atari  600XL  and  800XL. 

The  quirk  which  leads  to  this  kind  of  prob- 
lem is  that  computers  perform  all  of  their  math 
in  binary.  When  floating-point  (moving  decimal 
point)  numbers  are  converted  to  binary  and  then 
back  to  decimal,  small  errors  can  accumulate. 

QI  recently  found  several  old  60-minute  cas- 
sette tapes.  Are  the  60-  and  30-minute 
cassette  tapes  acceptable  for  program  record- 
ing? Is  there  any  command  or  program  which 
can  be  used  to  erase  these  tapes?  They  contain 
music  and  talk. 
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A3ARISOFT.  All  the  hits  your  computer  is  missing. 


It's  showtime. 
Time  for  ATARISOFT"  to 
sliow  you  six  exciting,  brand 
new  games  that  are  destined 
for  stardom. 

Games  that  can  be  played  on 
vour  Commodore  64,  IBM 
PC  and  Apple  II.  (Some  titles 
available  on  IBM  PCjr,  and 
VIC  20*) 

First,  there's  Gremlins', 
based  on  the  charac- 
ters from  the  original 
film  presented  by 
Steven  Spielberg. 
Then  there's  Crystal 
Castles"  where 
Bentley  Bear'"  journeys 
through  all  sorts  of 
tantalizingly  difficult 
paths  and  ramps  in  his 
endless  quest  for  gems. 

In  Donkey  Kong  Jr.  -  by 
Nintendo,-  Junior  tries  to 
rescue  his  father 
against  immense 
odds.  And  speak- 
ing of  Donkey 
Kong,  there's  also 
Mario  Brothers'  by 
Nintendo-.  This  time, 
Mario  and  his  brother 
Luigi  battle  creatures  on 
four  levels  of  floors,  en- 
countering all  sorts  of 
treacherous  enemies. 

In  Track  And  Field'  you 
Clin  compete  by  yourself  or 


head-to-head  with  another 
player.  But  each  player  must 
beat  qualifying  times,  heights 
and  distances  before  they  can 
compete  in  each  of  the  gruel- 
ling six  events. 

Typo  Attack  is  the  much- 
acclaimed, 
fun-filled 
program  that 
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allows  you  to  enjoy  de 
veloping  your  typing 
skills  at  any  level 

And  still  play- 
ing to  the  de- 
light of  audiences'every  where 
are  Pac-Mant  Ms.  Pac-Mant 
Jungle  Hunt,^  Battlezone," 
Donkey  Kong;  by  Nintendo; 
Centipede"  and  Pole 
Position^. 

So,  if  you've  been  searching 
for  ways  to  entertain  your 
Commodore,  Apple  or  IBM, 
treat  it  to  one  of  the  best 
shows  in  town,  one  of  the  hits 
from  ATARISOFT. 

And  don't  forget  the 
popcorn. 

ATARISOFT  prmlucts  arc  manufactured 
by  Atari,  Inc.  for  use  wilh  various  computers 
and  video  game  consoles,  ATARISOFT 
products  are  not  made,  licensed  or  approved 
by  the  nianufacturer(s)  of  those  computet:! 
and  video  game  consoles. 

'Titles  available  on  IBM  PCjr,  arc  Ms. 
Pac-Man.  Centipede.  Donkey  Kong,  Moon 
Patrol'  and  Typo  Attack.  Available  on  the 
VIC  20  is  Typo  Attack. 

I.  ®  (984  Warner  Brothers,  Inc.;  2. 
"nademarks  and  ©  Nintendo,  1982.  1983;  3. 
Trademark  of  Konami  industry  Co.,  Ltd., 
©  1983  of  Konami;  4.  Trademarks  of  Bally 
Mfg.  Co.  Sublicensed  to  Atari,  Inc.  by 
Namco-America,  Inc.;  5.  Trademark  and  © 
of  Taito  America  Corporation  1982;  6, 
Engineered  and  designed  by  Namco 
Ltd..  manuractured  under 
license  by  Atari,  Inc.  Trade- 
mark and  ©  Namco  1982;  7 
Trademark  and  @  Williams 
1982.  manufactured  under 
license  from  Williams 
Electronics.  Inc. 
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A  Theoretically,  longer  tapes  are  thinner  and 
thus  more  susceptible  to  stretching  and 
print-through  (signals  leaking  through  the  tape 
and  imprinting  on  adjacent  layers  of  tape).  But 
we've  never  had  any  problems  saving  programs 
on  30-  or  60-minute  cassettes.  If  they  are  good- 
quality  tapes,  they  should  work  as  well  as  the 
10-  or  20-minute  cassettes  generally  sold  for  data 
recording.  However,  the  longer  tapes  could  be 
slightly  less  convenient  if  you  store  many  pro- 
grams on  the  same  cassette.  You'd  have  to  wind 
the  tape  further  to  locate  the  program  you  want 
to  load.  But  even  this  is  a  negligible  problem  if 
you  jot  down  the  tape  counter  numbers. 

It  isn't  really  necessary  to  erase  the  old  ma- 
terial on  the  tape  before  recording  your  pro- 
grams. The  recorder's  erase  head  will  wipe  it  out 
as  you  record.  However,  your  letter  indicates  you 
have  an  Atari  400  computer.  The  Atari  Program 
Recorder  has  a  stereo  read/write  head  because 
the  Atari  can  accommodate  an  audio  track  that 
plays  through  the  TV  speaker.  When  you  load 
your  program,  you'll  hear  the  old  audio  material 
along  with  the  bleeps  of  the  data.  By  typing 
POKE  65,0  before  loading  the  tape,  the  bleeps 
will  be  silenced  and  you'll  hear  the  audio  only. 

However,  if  you  do  want  to  erase  a  tape 
before  using  it,  the  best  method  is  to  use  a  bulk 
tape  eraser  (available  at  electronic  supply  stores). 


Another  way  is  to  insert  the  tape  into  an  audio 
cassette  recorder,  press  the  record  button,  and 
disable  the  microphone  by  switching  it  off  or 
sticking  a  null  plug  into  the  microphone  jack.  If 
the  recorder  has  level  controls,  turn  them  all  the 
way  down. 

With  an  Atari  Program  Recorder,  you  can 
erase  tapes  by  pressing  the  record  and  play  but- 
tons and  typing  POKE  54018,52.  This  switches 
on  the  cassette  motor  from  the  computer.  You 
can  turn  off  the  motor  by  typing  POKE  54018,60. 


FIiEXIBLB  DISCS 

WE  WILL  NOT  BE  UNDERSOLD!!  Call  Free 
(800)  235-4137  for  prices  and  information.  Dealer 
inquiries  invited  and  C.O.D.'s  accepted. 


PACIFIC 

EXCHANGES 

100  Foolhill  Blvd. 
San  Luis  Obispo.  CA 
93401.  In  Cal.  call 
(800)  592-5935  or 
(805)  543-1037 
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COMMODORE  OWNERS: 

"Finally,  A  Universal  Graphics  Interface!" 

The  ALL  NEW  ■■MiCROGHAFIX"  parallel  intertace  by  Micro  World 
Electronix  Inc.,  is  a  complete  switch  selectable  inteilace  with  lull 
graphic  capabilities  tor  the  VIC  20^"  anO  Commodore  64^".  It's 
truly  the  most  universal  o(  Interfaces  with  the  capacity  lo  print  the 
Commodore '  graphics  sat,  since  il  is  switch  selectable  for  virtually 
all  Centronics  compatible  parallel  printers  including  Daisy  wheel 
printers. 
Features: 

1)  Fully  intelligent  Interface  that  plugs  into  the  Standard  Com- 
modore' printer  socket. 

2)  Complete  graphics  capability  that  will  allow  popular  matrix 
printers  to  fuHy  pass  the  Commodofe*  Printer  test  (including 
Inverse  text, tabbing,  cursor  up/down,  etc.). 

3)  Works  with  virtually  atl  software,  since  it  provides  emula- 
tion of  the  Standard  Commodore'  Printer, 

4)  Optional  user  installed  4K  buffer  to  speed  up  graphics  and 
text  printing, 

5)  Complete  built-io  status  and  self-test  report. 

6)  Switch  Selectable  Commodore'  graphics  mode  for  most 
popular  printers  (Epson,  Star  Micronics,  C.  Itoh,  Prowriter, 
Okidata,  Seikosha,  NEC,  Riteman,  Banana,  BP/IC, 
Panasonic,  Mannesman  Talley  and  others)  plus  a  Univer- 
sal Switch  mode  for  letter  quality  printers. 

7)  Complete  with  emulate  mode,  transparent  mode,  total  text 
mode,  ASCII  conversion  modes  that  will  insure  virtually  total 
compatibility  with  popular  Software. 

No  more  ROM  changes  or  extra  shell  space  taken  up.  The 
Micrografix  Inlerface  is  easier  to  stock  since  one  interface  wifl 
support  virtually  all  printers. 

Order  From: 

DISTRIBUTING.  INC. 
1342B  Route  23 
Butler,  New  Jersey  07405 
(201)  838-9027 


•  ™  Trademarks  of  Commodore  Business  Machines,  Inc. 
'Call  for  details  on  our  super  S50.00  trade-in  offer. 
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Robert  Alonso,  Assistant  Editor 


ROM  And  RAM 


Every  group  has  its  lingo.  When  you  first  start  to 
get  used  to  computers,  there  are  a  few  words  to 
learn,  a  bit  of  computerese.  Two  of  the  simplest, 
yet  most  misunderstood,  of  these  terms  are  ROM 
(Read  Only  Memory)  and  RAM  (Random  Access 
Memory). 

Absent-Minded  Computer 

Read  only  memory  is  called  that  way  because  it 
is  a  kind  of  memory  in  each  computer  which  can 
only  be  read.  No  matter  how  many  times  you 
try,  you  may  never  write  in  ROM.  Computers 
come  equipped  with  ROM  because  they  need  to 
have  instructions  that  tell  them  how  to  perform 
certain  functions  such  as  adding  or  subtracting  or 
even  how  to  send  things  to  disk  drives  or  printers. 
The  ROM  memory  stores  these  vital  instructions 
in  chips  that  can't  be  erased  by  writing  to  them 
or  by  turning  off  the  computer.  Without  ROM 
your  computer  would  be  useful  only  as  a  door- 
stop. Just  imagine  turning  your  computer  off  and 
having  it  forget  how  to  work  the  next  time  you 
turned  it  on. 

BASIC  is  usually  a  set  of  machine  language 
routines  stored  in  several  ROM  chips  in  each 
computer.  Another  set  of  important  ROM 
routines  are  the  input  and  output  routines.  These 
routines  instruct  your  computer  on  how  to 
communicate  with  external  devices  such  as  disk 
drives,  cassette  recorders,  and  printers.  ROMs  ob- 
viously contain  important  routines  that  are 
needed  for  doing  any  kind  of  work  with  your 
computer. 

Extra  ROM 

Another  useful  and  popular  form  of  ROM  is  the 
game  cartridge.  Yes,  those  small  black  boxes  that 
provide  you  with  so  many  hours  of  fun  are  just 
preprogrammed  read  only  memories.  These 
ROMs  in  cartridge  form  are  perhaps  the  fastest 
way  to  load  a  program  into  your  computer.  The 
reason  they  are  so  fast  is  that  usually  there  is  no 


loading  taking  place.  You  plug  in  the  cartridge, 
and  it  immediately  becomes  a  part  of  the  com- 
puter. The  computer  has  immediate  access  to  the 
programs  and  data  stored  on  the  cartridge. 

RAM  memory,  although  not  as  intrinsically 
important  to  the  computer  as  ROM,  serves  im- 
portant functions  in  the  computer.  It  is  the  area 
of  memory  where  user  programs  are  typed  in 
and  run.  RAM  is  also  used  by  all  the  commercial 
software  that  comes  on  disk  or  cassette.  The 
routines  that  are  located  in  ROM  often  have  to 
rely  on  pointers  in  RAM  to  function  correctly. 
Without  RAM  memory,  the  computer  might  not 
have  a  screen  display,  and  it  would  have  no  such 
thing  as  a  keyboard  buffer  to  hold  extra  keypresses. 
Graphics  would  not  be  available  either. 

Empty  Boxes 

All  memory  in  the  computer  can  be  described  as 
a  series  of  boxes  that  can  hold  something.  Let's 
say  that  you  have  1024  different  boxes  in  which 
to  put  things.  You  could  choose  to  place  objects 
in  these  boxes  sequentially  from  box  0  on  up  to 
box  1023,  or  you  could  just  decide  to  place  ob- 
jects into  boxes  in  any  haphazard  way  that  you 
yourself  could  understand.  RAM  memory  is  just 
like  a  series  of  empty  boxes  that  allow  you  to 
place  numbers  into  them.  The  only  restriction 
that  these  boxes  impose  on  you  is  that  you  must 
never  place  a  number  over  256  into  any  one  box. 
If  you  have  a  section  of  memory  that  has  1024 
spaces,  you  can  claim  to  have  IK  of  RAM  mem- 
ory. The  difference  between  RAM  and  ROM 
when  compared  to  boxes  is  that  ROM  memory  is 
like  a  series  of  boxes  that  already  have  objects  in 
them.  Even  more  important,  the  boxes  can't  be 
emptied  or  altered  by  the  user.  The  user  can  only 
look  into  the  box  to  see  what's  in  it.  ROM  could 
thus  be  compared  to  glass  boxes.  You  can  see  in 
but  can't  remove  anything  without  breaking 
something. 

Any  programs  that  run  in  RAM  memory  can 
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SHOW  LEX 

YOUR  LONGEST  WORD 

AND  WIN ! 


^ 


X 


ENTER  THE  EXCITING 

HAYDEN  NATIONAL 

WORD  CHALLENGE  CONTEST. 


^ 


IF  YOU'VE  GOT  A  MNNTNG 
WAY  WITH  WORDS,  THIS 
IS  YOUR  GAME. 

Word  Challenge,  The  mind- 
boggling  game  in  which  you  com- 
pete head  to  head  against  LEX,  the 
mighty  Wizard  of  Words. 

Select  the  size  of  your  playing 
square,  pick  from  26  skill  levels, 
set  a  time  limit,  and  choose  from 
5  scoring  methods.  Then  see  how 
you  stack  up  against  the  Wizard 
and  his  90,000  word  lexicon.  It's 
a  race  against  the  clock. 

You  and  LEX  compete  to  form 
words  by  connecting  randomly 
generated  letters.  Words  are  legal 
if  their  letters  touch  in  sequence 
on  any  side  or  comer.  The  more 
words  you  find,  the  better  your 
chances  of  beating  LEX. 
When  your  time's  up,  LEX 
displays  the  words  you  found 
and  the  words  he  found. 
You  score  points  for  every 
word  you  made  that  he 
didn't.  Word  Challenge 
keeps  the  score. 
Word  Challenge  is 

•      based  on  Proximity  lin- 
guistic technology.  It 
operates  on  Apple"'  II  +. 
He,  Ik,  IBM  PC"  PC  jr.™ 
and  popular  compatibles. 
Available  soon  for  Macintosh^'' 
and  Commodore  64™ 


Play  Word  Challenge  alone  or 
with  a  group.  See  if  your  family  or 
friends  together  are  wordy  enough 
to  bring  LEX  to  his  knees. 

TO  WIN  OUR  CONTEST, 
GIVE  US  THE  GOOD  WORD. 

It's  easy  to  play.  First  buy  Word 
Challenge.  Then  foUow  the  rules 
as  described  on  the  official  Entry 
Form  available  only  inside  specially 
marked  Word  Challenge  packages. 
Fill  in  the  letters  on  the  official 
contest  grid  to  construct  the  long- 
est possible  word ,  Show  your  word 
to  LEX.  If  he  has  it  in  his  vocab- 
ulary, send  it  in. 


First  prize  for  the  long- 
est word  is  $  10,000  cash. 


Second  prize  is  $3,000 
cash. 


The  top  200  finish- 
ers will  receive 
Word  Challenge 
polo  shirts. 


Be  one  of  the  first 
5,000  to  buy  Word  Chal- 
lenge and  enter  the  con- 
test, and  we'll  send  you 
a  free  Word  Challenge 
T-shiri;. 


Enter  now.  The  contest  expires 
October  31.  1984,  Purchase  of 
Word  Challenge  is  required.  Con- 
test void  where  prohibited. 

JOIN  OUR  WORD 

ASSOCIATION. 

THE  RIGHT  WORD 

COULD  BE  WORTH  $10,000. 

To  purchase  your  copy  of  Word 
Challenge,  see  your  local  software 
dealer,  or  contact  Hayden  Software, 
600  Suffolk  Street,  Lowell,  MA 

01854,  or  phone  toll-free 
800-343-1218. 


Word  Challenge  is  a  rcgisttrcd  trademark  of  Hayden 

Software  Company.  Inc. 

Apple  and  MacLntosh  are  rcgisiered  tr^denurks  of 

Apple  Computer  Inc.  IBM  PCand  PCjr.,  are 

regist£red  trademarks  of  Imemational  Business  Niachmes, 

inc.  Commodore  64  is  a  registered  trademaitol 

Comnr.odofc  Business  Machines. 


HAYDEN. 

AMERICA'S  FIRST  FAMILY 

OF  SOFTWARE. 


H^m 


be  modified.  For  example,  if  you  wrote  a  pro- 
gram in  BASIC  and  then  decided  that  you 
wanted  to  modify  something  in  it,  you  could 
easily  do  so.  One  peculiarity  of  BASIC  programs 
is  that  the  RAM  in  which  they  are  located  must 
be  continuous.  If  there  were  a  gap  of  any  sort, 
like  a  missing  box,  the  program  would  not  work 
properly. 

Screen  RAM 

Perhaps  one  of  the  most  interesting  sections  of 
RAM  memory  is  the  screen.  It  is  one  of  the  few 
RAM  locations  that  are  shared  by  both  the  cen- 
tral processing  unit  and  the  video  chip  in  all 
computers.  What  this  means  is  that  there  is  a 
section  of  RAM — let's  say  a  1024  box  section — 
that  both  the  computer's  main  processing  chip 
and  the  chip  that  produces  the  colorful  TV  image 
can  look  at.  The  reason  it  is  shared  is  that  you 
must  be  able  to  change  the  screen  either  by 
POKEing  values  into  the  screen  RAM  or  by 
PRINTing  values  onto  it.  For  you  to  be  able  to 
do  this,  the  central  processing  unit  must  have  ac- 
cess to  it.  The  video  chip  needs  to  have  access  to 
the  RAM  because  it  needs  to  know  what  to  dis- 
play on  the  TV  set.  The  video  chip  essentially 
scans  screen  RAM  and  evaluates  what  is  stored 
there.  Once  it  knows  what  is  in  the  screen  mem- 
ory, it  can  reproduce  an  image  of  it  on  your  TV. 


One  useful  feature  that  many  home  computers 
come  equipped  with  is  that  more  RAM  and  ROM 
can  usually  be  added  by  just  plugging  a  cartridge 
into  the  side  or  back  of  the  computer.  In  some 
computers  you  have  to  plug  the  RAM  into  the 
inside  expansion  areas,  but  this  is  usually  an  easy 
procedure.  The  reason  expandability  is  such  a  de- 
sirable feature  is  that  it  enables  the  user  to  pro- 
gram or  use  larger  programs  with  more  functions 
and  commands  and  that  it  facilitates  the  use  of 
alternate  computer  languages  or  BASIC 
enhancements. 

Memory  Limitations 

There  is  one  limitation  to  the  use  of  both  RAM 
and  ROM.  Each  microprocessor,  the  brain  chip  of 
each  computer,  can  access  only  a  predetermined 
amount  of  memory  at  any  one  time.  For  example, 
the  popular  6502  processor  found  in  the  Apple, 
Atari,  and  Commodore  computers  can  directly 
access  only  64K  of  memory.  The  8088  micro- 
processor found  in  the  IBM  PC  and  PCjr  can  ac- 
cess a  little  over  one  million  bytes.  There  are 
other  limitations  that  manufacturers  either  im- 
pose on  their  machines  or  are  forced  to  adhere 
to.  For  example,  Microsoft  BASIC  will  only  ac- 
cept a  program  up  to  64K  long.  An  example  of  a 
self-imposed  limitation  is  that  IBM  restricted  the 
memory  limits  of  the  PCjr  to  128K.  © 
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ISK  COMMANDER   L 

l\ii  plSK  DRIVE  BACKUP  &  UTIUTY 

ffi  BEEN  WAITING  FOR!  > 

'BACKUP  PROTECTED  DISKS.  '- 

GET  THE  BEST! 


1.  WriHen  In  Ful  Machine 
Ungiuge 

System  Configuialion: 
Supports  1  -  4  Drives 
FLudware  or  Software 
Drive  Mtimber  Selection 

m 

3*  Use  Simple  DOS  Commands 
Fitim  Program  For  Formatting 
Copying,  Renaming 
Scratclung  Files,   Displaying. 
Diredory,  Etc 


4.  Backup  Program 
Supports  I  or  2  Drive  Backup 
MODES: 

BAM  -  Copy  Allocated  Swtois 
Totid  -  Copy  All  Sectors 
Prolecled  -  Copy  All  Sectora 

[nduding  Dad  Seclois 
(AOows    Backup    Of   Many 
"Hea\-ily  Piotecled"  Disks) 

5.  Disk  Monitor 

Displays  Track  &  Sector  in 
Hex  and  ASCn  SlmuldnMlusly 

■  -  Read/Write/Modify  Individuil 

■  •  Blocks  w/Screen  Editor 


DokrliDSlTitMKo 


$45." 


TOLL  FREE  ORDER  LINE 

24  MRS,    7  BAYS 
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TOTAL  CONTROL  OVER  VOUR  COMMODORE-64"' 

USING  ONLY  WORDS 

MAKING  PROGRAMMING  FAST,  FUN  AND  EASY! 

MORE  THAN  JUST  A  LANGUAGE. .. 

A  tompUfe,  fully-integrofed  ptogmm  development  jyitem 

Home  Ufcft.  Fo»t  Gomei,  Grophici.  Odlo  Acqul^tiort.  duiineil 

Real  Time  Proceii  Control.  CcmmurncQT4oni.  Roboliei,  StientHic,  Artificial  lnl«lligence 

A  Powerful  Super«!  of  MVPfORTK/FORTH  79  +  Ex?,  fgr  rh<  begmner  or  profeiiioncit 


•  20  TO  400  s  taitcr  ihon  Boik 

•  1/4  x  tKe  progromming  lime 

>  Easy  full  cpntrol  o^  QJI  Mund,  >^i  rfrt. 
grgphici,  color,  sprilH.  plotting  fine  £ 
clfcfe 

•  Controlloble  SPlJT-SCBEEKi  Oiplo). 

•  Includes  iriterociive  iiiierprer«r  %,  compiler 

•  Forfh  viflijol  fnemofy 

•  Full  CuriOr  Screen  Editor 

•  Proviiior  fcr  application  p^oflfom 
d^ifiribji'on  wi)hour  licerkiing 

•  FORTH  ^quivoleni  Kernol  Roulnej 

•  Conditiannl  Macro  Anembler 

•  Meets  alJ  Forih  7P  iTandardi+ 

•  Sflurce  Kreen^  provided 

•  Comparible  with  the  book  "Srorting  Forth" 
by  Leo  6rodie 

•  Acceu  10  oil  I/O  porti  RS232.  !£££. 
mduding  memory  &  interiupM 

•  ROMAS LE  code  gene«olof 

•  MUSfC- EDITOR 


SUPER  FORTH  64   a 

Ot!it^:\\ii  ifian  mniP  plhpr  {ornpu'ff 

■  SUPERFORTH64  ■> 


•  SPfllTr-EDlTQft 

•  Accesi  all  C-64  peripheroh  including  4040 
drive 

•  Single  disk  drive  bockup  uHlify 

•  Diik  .&  Cosseile  bo^ed.  DJik  indudcd 

•  Full  diik  usoge  — 680  Sfldarj 

•  Supports  ail  CDmmodofe  lil«  (ypuj  ond 
Forth  Virtual  diik 

•  AcccH  to  20K  RAM  underneath  ROM 
oreai 

•  Veciored  kerna^  wordi 
c  TRACE  docility 

•  DECOMPILER  (acflity 

•  FulE  Siring  Handling 

•  ASCII  error  messogei 

•  FLOATING  POINT  MATH  SIM/COS  &  SORT 

•  Convtriarionol  OJer  delisted  Commor^di 
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•  INTERRUPT  routinei  provide  eaiy  control 
of  haidwore  timefs.  olormi  and  devices 

•  USER  Support 
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The  Educational  Software 

Explosion 


Kathy  Yokol,  Editorioi  Assistant 


Even  if  you  didn't  buy  your  home 
computer  as  an  educational  tool, 
you've  probably  learned  a  lot  from 
your  interaction  with  it.  Games, 
home  productivity  packages,  and 
other  computer  programs  can 
teach,  but  recently  there's  been  a 
proliferation  of  dedicated  educa- 
tional software.  Software  develop- 
ers and  publishers  are  vying  for 
top  positions  in  educational  soft- 
ware, potentially  a  billion-dollar 
business. 


Experts  have  said  that  it  was 
pretty  easy  to  predict  who  the 
first  6  percent  of  computer 
owners  would  be,  says  Marilyn 
Rosenblum,  vice  president  for 
product  development  at  CBS 
Software,  They're  the  same 
people  who  have  expensive  hi-fi 
systems  and  Sony  Walkmans, 
people  who  like  new 
technology. 

"The  important  issue  for  us 
and  for  the  future  of  this  indus- 
try is  who  the  next  6  percent 
will  be,"  she  says.  "The  thing 
that's  going  to  determine  that  is 
how  truly  useful  we  can  make 
computers." 

Software  publishing  firms 
have  been  scrambling  over  the 
last  few  years  to  figure  out  how 
they  can  influence  the  next  6 
percent  to  buy.  The  bets  right 
now  are  on  education.  "There's 
been  a  tremendous  proliferation 
of  manufacturers  into  the  educa- 


tional software  market,"  says 
Jordan  Levy,  vice  president  of 
marketing  at  Software  Distribu- 
tion Services. 

Levy  and  many  others  in 
the  industry  who  attended  last 
summer's  Consumer  Electronics 
Show  are  overwhelmed  by  the 
number  of  publishers  who  have 
either  entered  the  market  or 
added  educational  software  to 
their  already  existing  line.  Fu- 
ture Computing  predicts  that 
consumers  and  schools  will  pur- 
chase 6,787,000  units  of  educa- 
tional software  this  year. 

Bringing  School  Home 

"I  think  you  can  trace  the  recent 
popularity  of  educational  soft- 
ware to  penetration  of  the  home 
computer,"  says  Richard 
Khaleel,  president  of  Scholastic, 
Inc.'s  Software  Group.  Game 
software  was  popular  initially, 
he  says,  due  to  the  popularity  of 
the  VCS.  "And  with  the  pene- 
tration of  the  personal  computer 
into  the  business  market,  we 
saw  the  explosion  of  business 
software." 

Further,  home  computer 
sales  took  off  partly  because 
children  were  using  them  in 
schools.  "The  use  of  computers 
in  schools  is  probably  one  of  the 
main  reasons  for  the  popularity 
of  home  computers,"  says 
Khaleel.  Market  analysts  at  the 
Minnesota  Educational  Comput- 
ing Consortium  (MECC)  agree. 


And  as  more  school  districts 
make  computer  literacy  an  im- 
portant part  of  the  daily  curricu- 
lum, children  are  exposed  in 
ever-increasing  numbers. 

Not  Just  A  Shooting  Star 

In  the  rush  to  find  uses  for  this 
newly  installed  base  of  home 
computers,  a  lot  of  potential 
applications  and  inappropriate 
game  ideas  have  come  and 
gone.  With  them  have  gone  a 
lot  of  software  companies.  But 
the  concept  of  education  is  no 
fad.  "Everyone  latched  onto 
education  because  education 
doesn't  change  that  much,"  says 
Marilyn  Rosenblum.  "The  need 
to  teach  children  to  read  and 
write  well  will  always  exist." 


Marilyn  Rosenblum,  vice  president 
for  product  development  at  CBS 
Software. 
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Today's 

most  innovative 

educational  software 

bejganhere 

GOyears  aga 


At  Scholastic,  we  have  something 
no  other  educational  software 
company  has:  60  years'  experience 
making  learning  fun  for  kids. 

We  began  in  the  schoolrooms  of 
the  20's  with  the  first  national 
news  magazine  written  especially 
for  young  people,  The  Scholastic. 
Since  then,  our  one  magazine  has 
grown  into  37,  and  we've  become 
the  largest  educational  pubhsher 
of  books  and  magazines  in  the 
English-speaking  world. 

Now  we've  put  everything  we've 
learned  from  five  generations 
of  school  children  into  the  most 
innovative  family  of  educational 
software  available  today.  Scholastic 
Wizwarey" 

Our  experience  makes  Wizware 
different  from  all  other  educa- 
tional software.  It  turns  learning 
subjects  like  geogi-aphy,  writing 
and  spelling  into  exciting  adven- 
tures for  your  children.  And  be- 
cause every  Wizware  game  is 
interactive,  kids  become  deeply 
involved  in  what  they're  learning. 

What's  more,  our  experience 
has  taught  us  the  importance  of 
teaching  things  most  other  educa- 
tional software  leaves  out.  Like 
teamwork,  imagination,  critical 
thinking  and  problem  solving. 
You'll  find  them  all  in  Wizware. 

But  by  far  the  most  important 
result  of  our  experience  is  that 
your  children  will  thoroughly  eryoy 
learning  with  Wizware. 


There  are  now  Wizware  programs 
for  teaching  everything  from  crea- 
tive writing  to  computer  program- 
ming. Here  are  a  few  of  the  ways 
we  bring  leai'ning  into  the  Com- 
puter Age. 

SpelldiverT" 

It's  the  most  ingenious  way  ever 
devised  for  teaching  spelling  and 
impro\ing  reading  skills.  Deep 
beneath  the  sea  lie  giant  words 
covered  by  a  strange  seaweed 
called  lettermoss.  Kids  must  face 
ferocious  sharks  and  pesky  flipper- 
nippers  to  remove  the  lettermoss 
and  decipher  the  words. 

Agent  U.SAI" 

Agent  U.S.A.  turns  geography  into 
an  exciting  race  to  save  the  nation 
from  the  ruthless  Rizzbomb.  Along 
with  leaiTiing  geography,  children 
hone  their  problem-solving  and 
reasoning  abilities. 

Story  Tree:" 

Story  Tree  can  bring  out  the  Mark 
Twain  in  every  child.  Budding 


authors  create  their  own  mystery 
and  adventure  stories.  A  remark- 
able feature  lets  them  weave  alter- 
nate choices  into  every  turn  of  the 
plot,  and  challenges  their  imagina- 
tions to  the  maximum. 

Bannercatch™ 

Based  on  the  classic  game  of 
Capture-the-Flag,  this  is  the  most 
sophisticated  and  fun  strategy 
game  for  kids  available  today.  Not 
only  do  players  learn  how  to  devise 
complex  strategies,  they  also  learn 
how  to  work  together  to  solve 
difficult  problems. 

Scholastic  Wizware.  Our  experi- 
ence makes  all  the  difference. 

Look  for  Wizware  at  your  local 
computer  store.  Oi'  contact  Scho- 
lastic Inc.,  730  Broadway,  New 
York,  NY  10003, 212-505-3000. 

^^ScfiofastfC" 
SoHware 

The  most  trusted  name  in  learning. 


Siii'llili ver.  Agml  V. i^.A,  nml  Banueicaldi  <lrsiij«ed  ami  tiei'fhimi  61/  Tom  Siij/der  I'rcxliKlitiKS,  Inc.  Story  Tree  deiti/,:.-!  <i,,J 
drrrh/inl  lit)  George  Bnieketl.  •  Agriil  I'.S.A.  <tnd  Baimrrrateh  nmilnble  hi  Atari.  Commodore,  Apple  mid  IBM  nfraiuNj,. 
•  Slii'Udhwafailable  hi  Atari,  Commodore  and  Apple  rerxiont.  •  SU>ry  Treearailabiejor  Apple. 


Having  worked  in  educa- 
tional publishing  for  a  number 
of  years  before  coming  to  CBS, 
Rosenblum's  perspective  of  this 
"explosion"  is  different.  In  educa- 
tional book  publishing,  it  wasn't 
so  much  an  explosion  as  an 
ongoing  event.  Educational  pub- 
lishers began  to  add  microcom- 
puter software  to  their  existing 
lines  of  books  and  audiovisual 
materials. 

"What  we're  seeing  here  is 
that  a  lot  of  the  stuff  that's  been 
used  in  the  schools  is  perfectly 
appropriate  for  the  home,"  she 
says.  "A  lot  of  the  explosion  is 
just  recognizing  a  new  market." 

Pulling  Away  From  The 
Pack 

Jordan  Levy  thinks  that  many 
software  companies  sang  a  swan 
song  at  last  summer's  Consumer 
Electronics  Show.  "There  will 
be  a  lot  of  people  who  won't  be 
at  the  next  CES,"  he  says.  "A 
lot  of  people  are  going  to  fall 
by  the  wayside,  mostly 
entertainment." 

The  same  thing  is  bound  to 
happen  with  educational  soft- 
ware over  the  next  few  years, 
say  software  publishers.  But  in 
1989,  consumers  will  buy  about 
five  times  as  much  educational 
software  as  they're  buying  this 
year,  says  Future  Computing. 
They  predict  that  35,072,000 
units  will  be  sold  in  that  year. 

Whose  name  is  going  to  be 
on  those  packages?  Those  com- 
panies that  have  experience 
working  with  children,  says 
Scholastic's  Richard  Khaleel. 
"People  who  have  experience 
knowing  how  people  learn  have 
the  best  chance  of  creating  soft- 
ware that  is  not  really  state  of 
the  art,  but  state  of  the  mind," 
he  says.  "No  new  software  pub- 
lisher that  does  not  have  a  con- 
sumer franchise  in  another 
market  has  been  able  to  spend 
the  kind  of  money  yet  to  be 
able  to  establish  a  basis  for  con- 
sumer trust." 

"It's  very  important  for 
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people  who  know  children,  who 

have  traditionally  been  selling 
educational  materials  to  chil- 
dren, to  get  into  the  business," 
says  Weekly  Reader  Software 
Manager  Fritz  Luecke.  "You're 
going  to  find  fewer  unknowns 
entering  the  market,"  he  says. 
Though  parents  may  feel 
comforted  by  familiar  names, 
market  analysts  at  MECC  pre- 
dict that  the  competitive  situa- 
tion in  the  educational  software 
market  will  eliminate  those 
without  educational  strength 
and  technical  skill,  as  well  as 
adequate  marketing  ability. 
"The  next  18  months  will  hold 
some  very  hard  lessons  for 
those  publishers  who  think  the 
educational  buyer  is  an  easy 
sell,"  says  MECC's  Ron  Barnes. 

No  Fun 

In  all  of  the  brouhaha  over 
which  educational  software  pub- 
lishers will  emerge  as  leaders, 
there's  a  basic  problem  that 
everyone's  trying  to  solve:  Who 
deems  a  program  educational? 
How  do  you  decide  when  the 
educational  benefits  balance  the 
enjoyment? 

The  argument  seems  to  fo- 
cus on  just  how  much  emphasis 
there  should  be  on  the  enter- 
tainment aspects  of  an  educa- 
tional program,  if  any.  There 
aren't  any  real  rules  yet,  though 
educators  try  to  quantify  and  set 
standards,  and  software  design- 
ers and  publishers  try  to  de- 
velop formats  that  they  hope 
will  please  parents,  teachers, 
and  students. 

Those  formats  vary  tremen- 
dously. "My  belief  is  that  edu- 
cational software  should 
manifest  itself  in  some  kind  of 
discernible  change  in  behavior, 
like  grades,"  says  Thomas 
Garsh,  president  of  American 
Educational  Computer,  Inc. 
"You  don't  get  through  high 
school  by  being  a  good  games 
player  or  having  superior  cogni- 
tive skills.  You  get  through  high 
school  by  having  good  grades. 
And  you  do  not  get  accepted 


Thomas  Garsh,  president  of  American 
Educational  Computer,  Inc. 

into  college  with  superior  kinds 
of  thinking  skills.  You  get  into 
college  by  passing  the  SAT  and 
having  good  high  school  grades. 

"So  what  we've  done  is  al- 
most totally  related  our  software 
to  curriculum,  by  grade  and 
subject,"  he  says.  "We've  given 
up  a  few  whistles  and  bangs, 
which  may  initially  be  a  disad- 
vantage because  it  doesn't  look 
as  flashy,  but  the  subject  is 
there.  I'm  not  defending  that. 
I'm  just  saying  that  is  reahty. 
That's  our  position.  In  this  rush 
to  the  market,  I  don't  see  many 
companies  taking  that  position." 

Pupils  Of  Pac-Man  ? 

Software  developer  Tom  Snyder 
says  it's  too  early  to  judge,  that 
it's  dangerous  to  impose  restric- 
tions or  define  too  concretely 
right  now.  "Even  Pac-Man 
would  be  educational  if  you 
could  freeze  the  action,"  he  says. 

"If  you  freeze  Pac-Man  or 
any  other  game,  a  couple  of 
things  happen,"  he  says.  "You 
get  to  use  your  head  instead  of 
just  knee-jerk  reactions.  You 
start  verbalizing  to  yourself 
what  the  alternatives  are  and 
formalizing  them  a  bit  instead 
of  having  them  remain  in  sort  of 
an  intuitive,  physical  reaction. 

"Beyond  that,  it  really 
opens  the  experience  up  to  more 
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PMtyourself  In  the  pilot's  seat  of  a  Piper  181  Cherokee  Archer  fdr  an  awe-Inspiring  flight  over  realistic  scene 
'from  New  Yoric  to  Los  Angeles.  High  speed  color-filled  3D  graphics  will  give  you  a  bieautiful  panoramic  vie' 
as  you  practice  takeoffs,  landings,  and  aerobatics.  Compfete  documentation  will  get  you  airborne  quickly  I 
even  if  you've  never  flown  before.  When  you  thin  k  you '  re  ready ,  you  ca  n  play  the  World  War  1  Ace  aerial  battli 
game.  Flight  Simulator  II  features  include  ■  animated  color  3D  graphics  ■  day,  dusk,  and  night  flying  mod< 
■  over  80  airports  in  four  scenery  areas:  New  York,  fchlcago,  Los  Angeles,  Seattle,  witti  additional  scenery  I 
areas  available  ■  user-variable  weather,  from  clear  blue  skies  to  grey  cloudy  conditions  ■  complete  flight    , 
Instrumentation  ■  VOR,  ILS,  ADF,  and  DME  radio  equipped  ■  navigation  facilities  and  course  plotting  ■  World  | 
War !  Ace  aerial  battle  game  ■  complete  Infomiation  manual  and  flight  handbook.  ( 
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Softzvare  developer  Tom  Snyder. 

than  one  person.  If  you  slow  it 
down,  everyone  gathers  around 
and  you  get  five  people  talking 
to  each  other  about  what  a  de- 
cent strategy  might  be,  and  in- 
troducing the  whole  social 
element  into  it.  That  kind  of  in- 
teraction multiplies  the  learning 
instantly." 

Keeping  The  Scales 
Steady 

Somewhere  between  those  two 
opposing  viewpoints  lie  hun- 
dreds of  software  styles,  with 
varying  degrees  of  entertain- 
ment and  learning.  MECC 
Deputy  Executive  Director  Ron 
Barnes  contends  that  the  learn- 
ing objective  of  any  piece  of 
software  should  come  first,  with 
the  game  aspects  then  designed 
to  increase  the  child's  motiva- 
tion to  learn.  Often,  he  says, 
educational  software  is  devel- 
oped the  other  way  around. 

DLM  Teaching  Resources 
publishes  software  which  is  de- 
signed to  supplement  curricu- 
lum as  first  priority.  But,  they 
say,  what  makes  their  software 
sell  to  both  schools  and  homes 
is  that  it  does  not  ignore  the  ele- 
ment of  fun.  "I  think  that  what 
software  producers  are  looking 
for  is  a  correct  combination  of 
ingredients  to  combine  into  their 
instructional  courses,  to  keep 
the  interest  and  focus,"  says  Jim 


Hafer,  product  evaluation  super- 
visor for  MicroD. 

"There  seems  to  be  a  bit  of 
a  gray  line  there,"  he  says. 
"Some  have  a  theory  that  seems 
to  be  working,  and  that  is  to 
make  education  fun.  But  there's 
only  so  much  that  can  be  learned 
from  a  simple  game  as  opposed 
to  an  in-depth  program." 

Richard  Khaleel  believes 
that  we  will  see  more  segmenta- 
tion between  software  that 
makes  learning  fun  and  soft- 
ware that  is  just  drill  and  prac- 
tice. "It  all  depends  on  the  age," 
he  says.  "In  grade  school, 
homework  is  fun.  It's  only  when 
things  outside  of  school  get 
more  important  that  schoolwork 
competes  with  other  interests. 
There's  always  room  for  both." 

Pinning  Down  Tlie  Beast 

In  the  meantime,  educators  and 
parents  puzzle  over  how  to  de- 
cide. Not  just  on  what  kind  of 
software  or  computer,  but  some- 
thing more  basic:  whether  or 
not  the  microcomputer  can  be 
used  effectively  as  a  teaching 
tool. 

And  they  can  be  fooled, 
says  Tom  Snyder.  "There  is  an 
erroneous  promise,  an  implica- 
tion that  you're  going  to  be  able 
to  do  quantifiable  things  with  it, 
testing  how  the  education  is," 
he  says.  "Therefore,  it's  excited 
educators  and  educational  con- 
sultants who  say  finally,  we  can 
start  pinning  down  this  educa- 
tional beast  in  general."  © 
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P,Q-  The  Party  Quiz  Game^  includes  tiie  foiiowing  features: 


A  TRIVIA  PLAYER'SGAME  — not  a 
computer  game  that  plays  trivia. 

No  keyboard  input  — all  players 
responses  are  generated 
from  the  unique  Quick 
Response"  controllers. 
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General  Edition  I  has  over  2700  questions 
for  the  Commodore  64  and  over  1400 
questions  for  the  Atari. 

•  Competition  or  team  play. 

•  Random  questions. 

•  Lightning  bonus  rounds. 


special  Introductory  Oiler: 


Additional  Modules  from  the  P.Q.  Question  Library  include: 

Sport  Edition  I  Entertainment  I  General  Edition  III 


Education  Edition  I 


Entertainment  I 
General  Edition  II 


$19 


95 


each 


For  Wl  Orders  414-351-2007 


TM. 


P.O.  Box  17882     Milwaukee,  Wl  53217 


Alafi  and  Cotnmodoia  are  teglslered  trademarks  o1  Atari,  Inc.  and  Commodore  Business  Machines  rMpeclWely. 


Dealer  inquiries  invited. 


The  Latest  In  Learning: 

New  Trends 

In  Educational  Computing 


The  House  That  Jill  Built  lets  youngsters  design,  build,  and  animate  a  variety  of 
houses.  Developed  by  Joyce  Hakansson  Associates  for  CBS  Software. 


Selby  Bateman,  Features  Editor 

Construction  sets,  interactivity,  networking — these  are  some  of  the  trends  in 
the  quickly  evolving  educational  software  market.  A  swarm  of  new  companies 
have  entered  the  competition,  and  a  variety  of  different  educational 
approaches  are  being  tried. 


Few  subjects  will  generate  arguments  faster  in  the  microcomputer 
industry  than  what  makes  good  educational  software. 

Interest  in  computer-based  learning  programs  has  never  been 
greater,  nor  the  debate  over  future  directions  more  vocal.  Parents  and 
teachers  are  requesting  more  and  better  packages.  Computer  companies 
are  courting  software  firms  that  specialize  in  educational  products. 
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You  imagine 

and  a  cast  appears  on  the  screen 
You  compose 

and  music  and  sound  are  heard 
You  direct 

and  an  ori^nal  story  unfolds 
You  are  a  MovieMaker.'^ 

Creative  Pastimes: 
Software  as  unique  as  you  are. 

Look  for  Creative  Pastimes  Software  in  your  favorite  book  on-  computer  store.  Yoii  U  fir^d  it's  suitable  for  aR  ages, 

ar\d  compatible  with  most  jxipular  home  computers.  For  mijre  information  caU  us  at  (800)  336-0338. 

Or  unite  RestorxCompiiter  Group,  A  Preritice-Hall  Company,  1 1480  Sunset  HiUs  Road,  Reston,  Virginia  22090. 

MovieMaker  is  a  registered  irademark  of  Interactive  Picture  Systems,  Inc. 
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Dolphin's  Pearl 


MovieMaker 
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Middle  of  the 
Road  Lizard 


Now  your  teenagers 
can  learn  from  teachers 
who  teach  teachers 
how  to  teach. 

Introducing  The  Series 
by  Master  Teachers  from 
Thoroughbred. 

This  unique  series  offers  your  teenagers  the  rare  opportunity  to  learn-to  reinforce 
and  integrate  concepts  studied  in  school-through  software  developed  by  Master 
Teachers. 

Teachers  who  hove  been  recognized  by  other  teachers  as  being  truly  outstanding 
for  their  knowledge.  And  for  their  ability  to  inspire  people  to  learn-not  by  rote,  but 
through  acfjVe  participation.  So  that  learning  is  quick,  thorough,  and  fun. 

Master  Teachers  are  so  good  at  teaching,  in  fact,  they  teach  teachers  how  to  teach, 

The  first  11  titles  are  available  now 
Biology 

D  Exploring  that  amazing  food  factory,  the  leaf 
D  Photosynthesis:  unlocking  the  power  of  the  sun 
n  The  fascinating  story  of  cell  growth 
D  How  plants  grow:  the  inside  story 

Moth 

D  Decimals  made  simple 

n  Mastering  units  of  measurement 

D  Taking  the  mystery  out  of  metrics 

Social  Science 

D  The  U.S.  Constitution;  our  guarantee  of  liberty 

n  The  Constitutional  amendments:  what  they  mean  to  you 

Chemistry 

□  Molecules  and  atoms:  exploring  the  essence  of  matter 
D  The  how's  and  why's  of  migrating  molecules 

And  more  to  come-in  these  subjects,  as  well  as  English,  physics , . , 
All,  with  advanced  color  graphics. 

Level  of  knowledge  covered:  from  junior  high  to  adult  (except  "Decimals;' 
elementary  to  senior  high). 

For  use  with;  IBM  PC,  PCjr:  Available  soon  for  Apple  He,  lie" 

Visit  your  dealer  today.  Or  call  us  at  800-526-3968  (or  201-685-9000). 
Or  write  to  SMC  Software  Systems,  1011  Route  22,  Bridgewater,  NJ  08807. 


*  IBM  Is  a  registered  trademark  ol  miernallonal  Business  Machines  Corporcjilon. 
•  "Apple  (5  a  registered  trademark  o(  Apple  Computer.  Inc. 
®  CopYfiehl  I'M  Science  Management  Coiporotton.  All  Rights  Reserved, 
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SMC  Software  Systems 
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And  greater  numbers  of 
educators  are  getting  involved 
in  the  production  and  distribu- 
tion of  these  programs. 

Increased  competition  in 
this  growing  field  is  creating 
several  important  trends  that 
will  directly  affect  both  the 
quality  and  the  kind  of  future 
computer  learning  programs. 

Challenging  The 
Technology 

Even  staunch  supporters  admit 
that  educational  computer  pro- 
grams generally  have  a  long 
way  to  go  to  reach  their  poten- 
tial, but  the  software  is  evolving 
rapidly. 

There's  now  "some  clarity 
about  what  educational  software 
is,"  says  Marilyn  Rosenblum, 
vice  president  of  product  devel- 
opment for  CBS  Software,  a 
company  that  produces  several 
lines  of  educational  programs 
with  such  developers  as  Joyce 
Hakansson  Associates  and  the 
CTW  Software  Group  from 
Children's  Television  Workshop. 

"I  also  think  the  technology 
is  being  challenged  much  more 
than  it  was  a  year  ago.  Things 
that  would  have  been  accept- 
able then  are  no  longer  accept- 
able," she  says. 

"We're  getting  away  from  a 
lot  of  drill  and  practice,"  adds 
Marge  Kosel,  director  of  micro- 
computer courseware  for  Sun- 
burst Communications,  a 
company  that  produces  educa- 
tional software.  "Designwise, 
drill  and  practice  is  the  easiest 
[to  produce].  Now,  there  are  a 
lot  more  simulations  and 
problem-solving.  The  technical 
quality  of  software  has  really 
improved." 

Design  Your  Own 
Robots 

Greater  emphasis  is  being 
placed  on  the  amount  of  inter- 
action that  occurs  between  the 
student  and  the  computer  in 
several  of  the  newer  educational 
packages.  And  a  higher  level  of 
sophistication  has  been  built 
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into  other  programs,  as  some 
software  developers  reach  for  an 
older,  teen-oriented  educational 
market. 

Take,  for  example.  The 
Learning  Company's  new  Robot 
Odyssey  I  {Apple  II  family, 
$49.95).  Inspired  by  the  com- 
pany's earlier,  Rocky's  Boots,  the 
new  package  is  both  a  game 
and  an  educational  tool.  It's  one 
of  a  growing  number  of  prod- 
ucts called  construction  sets,  or 
builders — a  programming  style 
made  popular  by  Bill  Budge's 
Pinball  Construction  Set. 

Programs  written  in  this 
style  are  highly  interactive  and 
allow  the  player  to  control 


In  Robot  Odyssey  I,  players  must 
build  robots  to  escape  from  Robo- 
tropolis,  a  futuristic  underground  city 
inhabited  by  robots.  Marketed  by  The 
Learning  Company,  Robot  Odyssey  I 
!s  the  first  program  in  their  new 
DigiWorld  series,  which  is  aimed  at 
the  teenage  market. 


many  aspects  of  the  game  envi- 
ronment. In  Robot  Odyssey  I,  for 
instance,  the  player  actually  de- 
signs robots  and  builds  com- 
puter chips,  which  are  later  used 
to  help  the  player  escape  from  a 
futuristic  robot-run  city, 
Robotropolis.  The  program  fea- 
tures built-in  tutorials  to  teach 
the  basics  of  digital  logic  and  an 
Innovation  Lab  in  which  players 
design  and  test  chips  and  robots. 

Atari's  Futuremakers 
And  Milestone 

New  programs  from  Atari,  Inc., 
also  reflect  the  trend  toward 


greater  sophistication.  The  com- 
pany's Milestone  Series  from 
Atari  Learning  Systems  and  its 
Futuremakers  simulation  pro- 
grams are  quite  interactive  and 
feature  a  hands-on  approach  to 
learning.  The  AtariLab  science 
packages,  part  of  the  Milestone 
Series,  let  youngsters  simulate 
more  than  100  different  experi- 
ments using  the  computer  and  a 
laboratory  kit. 

Socrates  On  A  Chip 

The  freedom  to  move  almost 
anywhere  within  an  educational 
program  is  an  important  aspect 
of  the  Arrakis  Advantage,  a 
family  of  educational  software 
marketed  by  Prentice-Hall  for 
Apple,  Atari,  Commodore,  and 
IBM  PC  and  PCjr  computers. 

Directed  at  students  in 
grades  7  through  12,  the  Arrakis 
Advantage  series  is  based  on 
the  Socrates  Learning  Environ- 
ment— a  dialectical  teaching 
technique  borrowed  from  the 
Greek  philosopher,  notes 
Charles  de  Martigny,  managing 
director  of  Arrakis  Systems, 

"Where  other  programs  op- 
erate in  only  one  direction,  Soc- 
rates [the  system]  can  move  in 
any  direction  the  user  wishes," 
he  says.  "Students  can  interrupt, 
ask  questions,  test  themselves, 
review  and  explore  other  sub- 
jects and,  in  effect,  talk  directly 
to  Socrates  as  naturally  as  they 
would  converse  with  a  teacher." 

Learning  Is  Parallel,  Not 
Serial 

Students  need  that  kind  of  flex- 
ibility since  learning  is  not 
strictly  linear,  with  one  event 
following  another  in  a  predict- 
able chain.  Instead,  information 
arrives  in  a  parallel  fashion, 
with  information  coming  from  a 
variety  of  complementary 
sources,  points  out  Emiliano  De 
Laurentiis,  director  of  advanced 
research  and  development  for 
Arrakis, 

"People  should  start  look- 
ing for  software  that's  more 
intelligent;  software  that  allows 
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Nate:  Above  chart  is  an  art  treatment  and  was  not  printed  by  the  JUKI  6100. 
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THE  JUKI  6100:  Feature  for  feature,  the  best  aU- 
round  printer.  We  challenge  our  competition  to  beat 
our  overall  record.  Dollar  for  dollar,  JUKI  gives 
you  more  of  what  you  want  in  a  dalsywheel 

printer  And  no  wonder:  we've  been       ^^ 
building  quality  precision  machinery  for     '?5V»  v 
over  45  years.  So  for  a  printer  that  works   ^-*^/^, 
.  .  .  and  works  .  .  .  and  works,         '^^v'^ 
choose  JUKI.  Ask  to  see  the  JUKI  6100  at 
your  local  JUKI  dealer. 
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you  to  interact  on  a  normal 
level,  to  type  in  a  sentence,  to 
ask  questions,"  he  says,  "The 
technology  exists  now.  There's 
no  reason  why  it  shouldn't  be 
Implemented." 

The  Arrakis  Advantage 
series,  available  this  fall,  will 
initially  include  home  programs 
that  complement  school  curricula 
in  algebra,  geometry,  biology, 
chemistry,  physics,  and 
statistics. 

The  Hakansson  Touch 

Another  proponent  of  the  con- 
struction set  approach  is  Joyce 
Hakansson,  whose  independent 
software  development  firm  has 
already  produced  19  "playful 
educational"  packages  for  CBS 
Software,  Simon  &  Schuster, 
Spinnaker  Software,  and  Milton 
Bradley. 

"We  like  to  build  explor- 
atory worlds  for  children  to 
investigate — worlds  full  of 
sparkling  graphics  and  music 
and  a  good  measure  of  giggles," 
she  says.  "I  want  every  aspect 
of  a  program,  even  the  most 
subtle,  to  serve  an  educational 
purpose.  If  a  child  builds  words, 
then  building  words  should  be  a 
powerful  tool  to  make  some- 
thing happen  so  that  the  reward 
is  inherent  in  the  activity.  We 
feel  a  program  should  validate 
and  support  a  child's  natural 
intuition  and  enthusiasm  for 
discovery." 

Among  the  newer  programs 
developed  by  Joyce  Hakansson 
Associates  is  The  House  That  Jill 
Built  (CBS  Software),  available 
now  on  disk  for  the  Commo- 
dore 64  and  this  fall  for  the 
Apple  II  family. 

Build  It  Your  Way 

Created  for  children  five  years 
of  age  and  older,  the  program 
lets  the  player  design  and  build 
a  house  from  the  ground  up. 
Youngsters  furnish,  decorate, 
and  animate  the  environments 
simply  and  easily,  but  the  pro- 
gram also  can  be  used  by  older 
children  and  even  adults  in 
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more  complex  ways. 

Working  from  electronic 
blueprints,  you  choose  one  of  a 
variety  of  four-story  houses  to 
build.  Doors,  windows,  and 
stairways  must  be  placed 
throughout  the  house.  Exterior 
styles  must  be  selected  (Vic- 
torian, modem,  or  colonial). 
And  once  the  outside  of  the 
house  is  complete,  you  then  de- 
sign, decorate,  and  furnish  the 
interior.  Tips  on  design  and 
notes  on  architecture  are  in- 
cluded in  the  manual. 

As  the  installed  base  of 
computers  has  increased,  some 
software  producers  who  previ- 
ously concentrated  their  atten- 
tions on  a  school-based  market 


Youngsters  count  as  many  crops  as 
they  can  before  the  sun  sets  in  DLM's 
Number  Farm, 


are  coming  into  the  home  with 
programs  to  supplement  their 
curricular  packages. 

It's  "Arcademic" 

DLM  Teaching  Resources  of  Al- 
len, Texas,  currently  offers  hun- 
dreds of  educational  materials 
for  schools.  DLM  has  made  the 
transition  into  the  home  soft- 
ware market  as  well  with  its 
Arcademic  Skill  Builders  series 
in  math,  language  arts,  and 
other  areas. 

Educational  software  com- 
panies with  strength  both  in  the 
school  and  in  the  home  will 
have  the  best  chance  of  sur- 
vival, says  DLM's  Karen 
McGraw,  project  editor  for 
microcomputer  software  and  a 


former  teacher.  DLM  empha- 
sizes content  in  its  packages, 
she  adds,  but  with  a  presenta- 
tion that  is  also  fun  for  the  user 
and  with  programs  that  fully 
use  the  capabilities  of  the 
computer. 

"But  we  don't  want  a  prod- 
uct just  because  it  is  an  innova- 
tive use  of  technology,  if  it's  not 
married  to  educational  validity. 
We  don't  build  software  and 
then  make  it  fit  the  child." 

Sunup,  Sundown 

In  one  of  DLM's  preschool  edu- 
cational games,  for  example,  a 
timer  is  included  to  let  the  child 
know  how  much  time  is  left  in 
the  program.  Rather  than  using 
a  clock,  which  might  have  no 
relevance  to  a  four-year-old 
who  can't  yet  tell  time,  the  pro- 
gram employs  a  day-to-night 
cycle  to  accomplish  the  same 
thing. 

At  the  start  of  the  game, 
the  sun  comes  up.  As  the  game 
progresses,  the  sun  crosses  the 
sky  and  then  starts  to  come 
down  as  the  game  draws  to  a 
close.  When  the  sun  sets  and 
night  comes  onto  the  screen,  the 
game  is  over. 

"We  use  real-world  things 
that  are  important  to  a  child, 
that  a  child  can  understand," 
says  McGraw.  "Unless  you 
really  know  about  education, 
unless  you  really  understand  the 
mind  of  a  child,  you  would 
never  think  of  it,"  Drawing  on 
its  experiences  as  a  curriculum- 
based,  educational-software  pro- 
ducer, American  Educational 
Computer  (AEC)  is  also  among 
those  school-oriented  software 
companies  which  have  entered 
the  home  market. 

"Tested  And  Tried" 

An  educational  program  in  the 
home  can  be  much  more  effec- 
tive if  it's  first  been  shown  to  be 
successful  in  the  schools,  argues 
AEC  president,  Thomas  B. 
Garsh.  "It's  been  tested  and 
tried  and  is  based  on  sound 
educational  pedagogy,"  he  says. 


ONIY  NRI  GIVES  YOU  KHM. 
C»MFmER  SYSTEM  TEUUNING 


Your  hands-on  Iraining 
takes  you  inside  youf 
TRS-80  Model  i 
computer  to  install 
integrated  circuits  and 
enlarge  memory  to  64K, 


Buill'in  manltar 
displays  up  lo  80 
characters  for  easy 
word  processing 
and  spread  sheet 
programs. 


Electronics  comes  to 
lite  on  your  NRI 
(Nscoveiy  Lab<^ 


Professional  3'A  digit 
ntuttlmeter  with  Action 
Audio  Cassette  to  talk  you 
through  operation  and  use. 


Model  4  Technical 
Reference  IHanual 
eitricttes  your  training 


More  practical  experience  as  you 
install  doublE-densily  lloppy 
disit  drive.  Software  includes 
TRSD0S5',  DOSPLUS=^,  machine 
language  monitor,  and  two  game 
programs. 


g  X  9  dot  matrix 
printer  completes 
your  computer 
system. 


BIte-sIze  lessons 

build  knowledge 
and  understanding 
step  by  step. 


COMPUTER  •  MONITOR  •  DISC  DRIVE 
•  PRINTER  •  AND  SOFTWARE. . . 

It's  all  included  with  NRI  at-home 
training  in  Microcomputers  and 
Microprocessors.  And  onl^  with 
NRI  training. 

If  you  really  want  to  learn  how  to  work 
on  comptjters,  you  have  to  learn  how  to 
work  on  computer  systems.  Only  NRI 
Includes  a  complete  system  with  your 
training . ,  .total  training  that  gives  you 
hands-on  experience  with  computers, 
peripherals,  and  software. 

Get  Inside  ttie  Famous  TRS-80 
Model  4  Computer 

You'll  work  with  one  of  the  most 
popular  computers  everdesigned.  Learn 
programming  techniques  for  troubie- 
shooting  ...  go  inside  to  expand  its  RAM 
from  16Ktoapowerful64K. . .  even  install 
a  double  density  floppy  disc  drive. 

You'll  become  familiar  with  computer 
languages. ..run  software  that  demon- 
strates computer  operation . . .  even  become 
proficient  at  modifying  programs  to  fit  your 
business  or  family  computing  needs. 

Add  High  Perfoimance  Peripheral 
Printer 

Only  NRI  gives  you  total  system 
training  with  the  flexible  Gemini  10X  printer 
as  part  of  your  hands-on  learning.  Working 
with  It,  you'll  get  practical  experience  in 
adding  peripherals,  learn  maintenance  and 
servicing  operations.  And  you'll  use  It  for 
hard  copies  of  Important  programs, 
business  records,  and  word  processing. 

Understanding  Built  On  Experience 

You  start  with  the  basics,  rapidly  build 


on  the 

fundamentals      ^ 

of  electronics 

with  bite-size 

lessons  to  master 

advanced  concepts  like  digital  logic, 

microprocessors,  and  computer 

memories. 

You'll  use  the  exclusive  NRI  Discovery 
Lab®  to  see  what  makes  transistors  tick, 
build  and  test  working  electronic  circuits 
that  duplicate  key  computer  circuitry,  con- 
struct digital  logic  circuits  that  demon- 
strate computer  performance.  And,  you'll 
probe  into  the  very  heart  of  your  computer 
using  the  Discovery  Lab  and  professional 
digital  multimeter  included  in  yourtrain- 
ing  program. 


Do  It  at  Home  In  Your 
Spare  Time 

NRI  trains  you  in  your  own 
home  at  your  convenience.  You 
learn  at  your  own  pace,  backed  at  all 
times  by  your  own  NRI  instructor  and 
the  entire  NRI  staff  of  educators  and 
engineers.  They're  always  ready  to  answer 
questions  and  help  you  overthe  rough  spots 
to  keep  you  moving  toward  your  goal. 

Free  Catalog  Tells  Much  More . . . 
Send  Today 

See  all  the  interactive  training  equip- 
ment you  get  In  this  state-of-the-art  course 
in  today's  technology.  Look  overthe  lesson 
outlines  and  descriptions  of  the  exciting 
experiments  you'll  perform.  And  look  at 
other  high-tech  career  fields  like  Robotics, 
TV/ Video/  Audio  Servicing  and  Data 
Communications. 

Mall  the  coupon  todaytosee  how  NRI 
can  give  you  the  skills  and  confidence  you 
need  to  start  a  good-paying  career  as  a 
microcomputer  technician. 
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"We  know  that  if  a  parent  buys 
it  for  a  fifth-grade  student  and 
he  or  she  gets  better  grades, 
then  the  parent  comes  back, 
says  it  worked,  and  buys  it  for 
the  sixth-grade  child." 

The  movement  of  software 
from  the  school  to  the  home  is 
accelerating.  Control  Data  Cor- 
poration, developers  of  the 
widely  used  Plato  system  of 
educational  software,  now  has 
more  than  12,000  hours  of 
courses  that  include  everything 
from  instruction  in  basic  skills 
and  computer  literacy  to  educa- 
tional games  and  advanced  cal- 
culus. And  the  company  is  in 
the  process  of  converting  many 
of  its  packages  for  use  on  per- 
sonal computers  like  the  Apple 
II  family.  Atari,  IBM,  and  Texas 
Instruments. 

The  More  The  Merrier 

A  related  trend  over  the  last 
year  or  so  is  the  entry  of  large 
corporations,  especially  estab- 
lished educational  publishers, 
into  the  home  software  field. 
Companies  like  Random  House, 
Prentice-Hall  (Arrakis  Systems), 
SFN  Companies  (Mindscape), 
Xerox  (Weekly  Reader  Soft- 
ware), Scholastic,  Simon  & 
Schuster,  and  Fisher-Price  are 
bringing  their  talent,  marketing 
muscle,  and  reputations  into  the 
computer  learning  field. 

"And  that's  very  good," 
says  Fritz  Luecke,  manager  of 
computer  software  for  Weekly 
Reader  Software.  "Most  of  them 
bring  something  to  the  business 
that  other  traditional  software 
companies  might  not  bring,  and 
that  is  a  different  kind  of  mar- 
keting expertise. 

"They  also  bring,  in  many 
cases,  a  new  way  of  packaging, 
a  new  way  of  adding  things  to  a 
program  to  make  it  a  total  pro- 
gram, which  is  what  we  feel  we 
have  done  with  our  products," 
he  adds. 

What  Children  And 
Parents  Want 

Giving  children  items  with 
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Choosing  The  Best 
Educational  Software 

Selby  Bateman,  Features  Editor 
Sharon  Darling,  Research  Assistant 

Of  the  thousands  of  educational  software  programs  available, 
which  ones  are  worth  your  time  and  money?  Here's  a  short  les- 
son from  the  experts. 


"One  recommendation  I  always  make  to  parents — one  that 
not  enough  people  are  making — is  that  you  should  really  be- 
gin to  look  for  educational  software  for  your  three-  or  four- 
year  old  child,"  says  William  Bowman,  chairman  of  Spinnaker 
Software. 

"That's  the  time  to  begin  thinking  about  buying  a  home 
computer  and  getting  educational  software.  It's  going  to  be 
easier  for  you  to  find  things  that  are  generally  applicable  to 
the  learning  skill  areas  of  young  children  than  it  will  be  to 
find  the  more  specific  software  for  older  kids,"  he  adds. 

Getting  Involved 

Spinnaker's  educational  software  lines  include  the  new 
Fisher-Price  Learning  Software  for  children  from  three  to 
twelve  years  of  age,  as  well  as  such  best-selling  programs  as 
Kindercomp,  Alphabet  Zoo,  In  Search  of  the  Most  Amazing 
Thing,  and  Kids  On  Keys. 

"The  next  real  criterion  is  that  the  software's  got  to  be 
fun,"  says  Bowman.  "If  it's  not  fun  to  use,  kids  won't  use  it 
no  matter  what  their  ages  are — and  that's  where  an  awful  lot 
of  educational  software  falls  down.  The  next  thing  for  a  par- 
ent to  do  is  to  consider  how  much  he  or  she  is  going  to  be 
involved  with  the  child.  A  little  involvement  is  always  re- 
quired. But  some  software,  like  Spinnaker's,  really  expects 
the  parent  to  be  more  involved,"  he  adds.  "The  software  is  a 
little  bit  deeper,  it's  a  little  more  advanced  in  terms  of  what 
you  can  do  with  it." 

Trying  It  On  For  Size 

Getting  educators  and  software  developers  to  agree  on  a  set 
of  specific  guidelines  would  be  almost  impossible,  given  the 
many  conflicting  views  which  abound  in  the  computer-based 
learning  field.  But  there  are  a  few  fundamental  pieces  of  ad- 
vice for  anyone  buying  educational  software.  The  following 
tips  from  educators,  software  houses,  and  leading  indepen- 
dent program  developers  may  be  of  help  as  you  wade  through 
the  flood  of  educational  software  packages: 

•  Shop  at  a  software  store  that  allows  you  to  run  some 
programs  prior  to  purchase,  or  that  lets  you  buy  packages 
on  approval.  Such  stores  may  not  be  easy  to  find  right  now, 
but  retailers  are  discovering  that  an  increasing  number  of 
customers  are  demanding  more  than  just  the  promises  on  the 
outside  of  a  package  to  buy  an  educational  software  product. 


If  you've  been  having  a  hard  time 
teaching  your  newly-adopted  computer 
there's  more  to  life  than  fun  and  games, 
you're  not  alone. 

Now,  you  can  introduce  your  Commodore  64™  to  the  Work  Force:  affordable,  easy-to- 
use  software  and  hardware  that  will  unleash  the  power  you  always  expected  from  your 
Commodore  64  ™ ,  but  thought  you  might  never  see. 


is  simply  the  best  word  processing  program  of  its 
kind — loaded  witii  advanced  features,  yet  so  easy  to 
use  even  a  novice  can  get  professional  results.  With 
SpellPack™,  it  even  corrects  your  spelling!  Once  you've 
tried  it,  you'll  never  use  a  typewriter  again. 

The  C.on.^)jft<;»nt™ 

{formerly  Delphi's  Oracle) 
is  like  a  computerized  filing  cabinet  with  a 
brain.  Organize  files  for  recipes,  albums, 
or  the  membership  of  your  service  club. 
Then  search,  sort,  arrange  and 
analyze  your  Information  with  speed 
and  flexibility  that's  simply  astounding. 

SpeUPack^ 

teaches  your  64  to  spell,  it  checks  an  entire 
document  in  2  to  4  minutes  against  a 
dictionary  of  over  20,000  words.  And  you 
can  add  up  to  5,000  of  your  own 
specialized  terms.  Type  letter  perfect  every 
time! 

BATTERIES 


is  a  magic  box  that  lets  you  transform  your  humble 

home  computer  into  a  powerful  business  machine.  It 

gives  you  the  added  power  of  BASIC  4.0,  and  lets 

you  add  IEEE  disk  drives,  hard  disk,  virtually  any 

parallel  printer,  and  other  peripherals  without  extra 

interfaces.  Completely  software  invisible. 

BJ.-80"  Column  Adaptor 

gives  you  crystal  dear  80  column 

display.  Using  the  highest  quality 

hardware,  we've  eliminated  the  problems 

of  snow,  fuzziness  and  interference. 

Basic  4.0  commands  greatly  simpliiy 

disk  drive  access.  Switches  easily  from 

40  to  80  column  display. 

Discover  the  true  power  of  your 

Commodore  64'".  Ask  your  dealer  about 

the  Commodore  64'"  Work  force,  from 

Batteries  included — the  company  that 

doesn't  leave  anything  out  when  it  comes 

to  making  things  simple  for  you. 


INCLUDED 


"Excellence  in  Software" 

These  products  have  been  developed  specifkaliy  for  Commodore  computers  by  Batteries  Included  and  are  totally  compatible  with  each  other.  For  a  full  color  brochure  write  to: 

1 86  Queen  Street  West,  Toronto,  Canada  M5V  1 Z1  (41 6)  596-1 405  /  3303  Harbor  Blvd.,  Costa  Mesa,  CA.  92626  (71 4)  979-0920 

64  ANI>  COMIHODOHE  64  ARE  REGISTERED  TRADE  MARKS  OF  COMMODORE  BUSINESS  MACHINES 


which  they  are  familiar — books, 
stickers,  posters — in  addition  to 
the  software  package  makes  it 
easier  for  the  youngsters  to  re- 
late to  the  product,  Luecke  says. 

While  numerous  educational 
software  companies  are  expand- 
ing their  operations  from  school 
orientation  to  include  the  home 
market,  the  growth  is  very  much 
a  two-way  street.  Other  compa- 
nies, which  have  previously 
sold  software  strictly  to  the 
home,  are  approaching  schools 
with  their  products.  And  the 
success  which  some  microcom- 
puter hardware  manufacturers — 
especially  Apple  Computer — 
have  had  in  donating  products 
to  school  systems,  is  now  spur- 
ring more  software  companies 
to  try  similar  tactics. 

Using  the  slogan,  "Be  a 
hero,  software  your  school," 
Scarborough  Systems  of 
Tarrytown,  New  York,  is  em- 
barking on  a  major  school- 
donation  project  this  fall. 

Those  who  purchase  Scar- 
borough educational  programs 
between  September  15  and  De- 
cember 15  will  find  a  coupon  in 
each  package  enabling  them  to 
donate  a  piece  of  educational 
software  to  the  school  and 
teacher  of  their  choice.  The  do- 
nated program  does  not  have  to 
be  the  same  one  purchased. 

The  purchaser  sends  the 
coupon  and  $3.50  for  postage 
and  handling  to  Scarborough. 
The  company  will  then  donate 
the  software  to  the  school.  A 
gift  card  telling  the  name  of  the 
donor  and  the  name  of  the 
dealer  where  the  software  was 
purchased  will  be  included  in 
the  donation. 

"We  think  it's  a  unique  pro- 
gram, and  it  may  provide  up  to 
$4  million  in  the  value  of  com- 
puter software—that's  125,000 
programs,"  says  Sanford  K. 
Bain,  vice  president  of  market- 
ing for  Scarborough  Systems. 
The  company  has  computer 
software  for  four  machines — the 
Apple  II  family.  Commodore  64, 
IBM  PC/XT/jr,  and  the  Atari 
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"Buying  blind"  is  the  way  Dr.  Sam  Barkliss,  chief  exec- 
utive officer  of  Computerose,  Inc.,  an  educational  software 
firm,  describes  the  predicament  most  parents  and  some 
teachers  find  themselves  in  when  purchasing  educational 
packages.  They  should  be  offered  the  opportunity  to  test  the 
educational  value  of  software  before  a  purchase. 

But  What  Does  It  Really  Do? 

•  Determine  what  age  and  learning  levels  the  software 
is  designed  for.  Once  that  is  established,  find  out  exactly 
what  the  program  intends  to  teach,  says  Leigh  Mosley,  an 
educational  consultant  at  Peachtree  Software.  "A  parent 
should  ask,  Ts  my  son  or  daughter  going  to  learn  from  it?'" 

Some  companies  are  better  than  others  at  telling  you 
who  the  target  audience  is,  what  level  of  learning  is  required, 
and  what  the  goals  of  the  packages  are.  Always  keep  in  mind 
the  software  user — the  child's  age,  learning  level,  interests, 
and  dislikes. 

•  Be  aware  that  the  nature  of  "educational  content"  is 
often  difficult  to  assess— and  usually  the  subject  of  much 
debate  among  educators  and  software  houses.  Many 
educators  and  software  producers  believe  that  specific  learn- 
ing objectives  are  crucial  in  producing  good  computer-based 
educational  products.  Others  stress  the  validity  of  programs 
which  invite  youngsters  to  explore  and  "play"  in  a  less  struc- 
tured learning  environment. 

The  General  And  The  Specific 

For  example,  software  that  stimulates  a  student's  creativity 
might  be  more  useful  than  a  program  that  deals  with  a  spe- 
cific learning  problem  in  school,  notes  Kent  Kehrberg,  direc- 
tor of  software  for  the  Minnesota  Educational  Computing 
Consortium. 

"It  may  be  difficult  for  a  parent  to  match  up  a  very  spe- 
cific program  with  a  problem  a  child  is  having  in,  say, 
algebra,"  he  says,  "In  a  case  like  that,  it's  very  difficult  for 
someone  besides  the  teacher  to  pinpoint  [the  problem]." 

•  Read  published  reviews  and  other  articles  about 
software  packages  and  the  goals  of  various  software  com- 
panies. The  more  knowledgeable  you  are  about  manufac- 
turers and  their  products,  the  easier  your  task  when  picking 
out  new  software. 

Tutorials,  Simulations,  And  Drill-And-Practice 

For  example,  when  shopping  for  software,  parents  should 
know  the  three  basic  types  of  educational  programs — tutorials, 
drill-and-practice,  and  simulations,  notes  Sherwin  A.  Steffin, 
vice  president  for  research  and  development  at  Eduware  Ser- 
vices, Inc. 

"Tutorials  help  you  attain  a  new  skill  or  understanding," 
he  says.  "They  generally  ask  the  question,  'How  to?'  With 
drill-and-practice,  you  already  know  how,  but  want  to  know 
better,  so  you  need  repetitive  exercises."  Simulations  can  of- 
fer examples  of  the  way  things  work  in  just  about  any  field. 

•  Consider  how  much  replay  value,  or  depth,  a  prod- 
uct has.  Will  the  child  use  the  package  a  few  times  and  tire 
of  it,  or  is  there  enough  variety  and  challenge  to  offer  a  stim- 
ulating environment? 
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family. 

"Obviously,  we're  doing  it 
because  we  think  it  reflects  a  fa- 
vorable image  for  the  com- 
pany," Bain  says.  "We  strongly 
believe  the  validity  for  these 
programs  has  to  come  from  the 
schools.  And  our  donation  pro- 
gram allows  schools  to  sample 
software  without  great  expense 
on  their  part." 

To  Network  Or  Not  To 
Network? 

One  school-based  trend  that  dis- 
turbs DLM  President  Andrew 
W.  Bingham  is  the  tendency  for 
schools  to  network  their  com- 
puters, which  Bingham  says  can 
work  against  innovative  use  of 
the  computers. 

"It  almost  scares  me,  be- 
cause 1  think  the  evolution  may 
ultimately  lead  us  to  miss  the 
revolutionary  potential  of  soft- 
ware," he  says,  "When  there  are 
just  two  or  three  computers  in  a 
school,  teachers  will  use  them 
flexibly  and  individually. 

"When  the  school  gets 
more  computers,  they  bring 
them  all  together  into  one  room, 
because  it's  easier  to  control, 
easier  to  administer.  Then  they 
want  a  networking  system," 
says  Bingham.  "What  you  get  is 
students  being  marched  to  the 
computer  for  their  20  minutes  of 
instruction  and  marched  back  to 
their  seats." 

Bingham  urges  parents  and 
teachers  to  explore  innovative 
uses  of  the  computer  rather  than 
trying  to  emphasize  convenience 
of  management. 

No  matter  what  the  area  of 
computer-based  educational 
programs,  software  companies 
and  educators  all  agree  that  the 
field  is  still  in  its  infancy  in 
many  ways.  And  expectations 
for  the  future  are  bright.  "I 
think  we're  going  to  see  an  ex- 
plosion in  the  next  couple  of 
years,"  says  Sam  Barkliss,  chair- 
man of  Computerose,  Inc.,  an 
educational  software  company. 
"1  think  we're  going  to  see  some 
astonishing  things," 
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As  William  Bowman  puts  it,  "Does  the  software  provide 
multiple  paths  to  creativity,  and  does  it  accept  multiple  paces 
from  different  children?" 

The  Price  Tag  For  Learning 

•  Price  and  future  availability  of  software  from  the 
same  company  can  be  important  factors.  Depending  on  the 
needs  of  the  student  and  the  goals  of  a  company's  software 
line,  you  may  wish  to  purchase  an  entire  series  of  com- 
plementary programs  over  time.  How  much  this  will  cost  you 
and  its  effects  on  the  student's  learning  goals  then  become 
very  important. 

"A  lot  of  people  out  there  are  getting  too  great  a  price 
for  what  they're  selling,  and  for  what  the  market  will  sup- 
port," says  George  Esbensen,  national  sales  coordinator  for 
MicroEd,  a  Minnesota-based  company  which  produces  edu- 
cational software,  "A  lot  of  what's  being  passed  off  as  educa- 
tional software  is  not." 

•  Take  your  child  to  the  store  when  selecting  software. 
This  can  be  especially  helpful — and  save  you  later  dis- 
appointments— if  the  child  can  actually  see  the  program 
working  in  the  store.  If  that's  not  possible,  at  least  you  can 
get  a  better  idea  of  some  of  the  likes  and  dislikes  of  the 
youngster  for  whom  you're  purchasing  the  program. 

Sophistication,  Power,  And  interaction 

•  How  flexible  is  the  software  program?  Are  there 
built-in  options  which  allow  a  variety  of  challenges  and 
motivational  changes  as  the  user  works  with  the  program? 

As  computers  become  more  powerful  and  software  becomes 
more  sophisticated,  the  level  of  interactivity  between  user 
and  program  is  increasing  dramatically.  The  best  educational 
software  takes  advantage  of  that  power  and  sophistication, 

•  Is  the  software  both  easy  to  use  and  error-free? 
Educational  programs  which  freeze  up  or  frustrate  a  user  can 
immediately  discourage  users,  especially  younger  children.  Be 
aware  of  both  potential  problems  as  you  evaluate  software 
you  see  or  that  you've  purchased. 

Fritz  Luecke,  manager  of  computer  software  for  Weekly 
Reader  Software,  suggests  that  you  determine  how  easy  and 
helpful  the  program  guide  booklet  is  that  comes  with  the 
package.  Many  parents,  teachers,  and  students  want  to  be 
able  to  insert  a  program  into  the  computer  and  use  it  without 
having  to  use  a  guide,  particularly  if  that  guide  is  confusing 
or  incomplete. 

NEA  Teacher  Certified 

Finally,  you  might  want  to  look  at  the  NEA  catalog  of  educa- 
tional software.  With  the  proHferation  of  educational  software 
packages,  the  job  of  separating  the  good  from  the  mediocre 
gets  tougher  every  day.  For  more  than  a  year  now,  the 
National  Education  Association  (NEA)  has  been  trying  to 
give  some  guidance  in  this  area.  Approximately  50  NEA 
reviewers  have  been  testing  educational  programs  submitted 
by  software  authors  and  publishers.  Those  which  meet  the 
NEA's  stiff  requirements  are  given  an  "NEA  Teacher  Certi- 
fied" stamp  of  approval,  and  are  included  in  a  catalog  of  ap- 
proved software.  © 
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Let  it  out  with 
Wiley  Computer  Books. 


MASTERING  THE 
COMMODORE  64 

A.J.  Jones  and  G.H.  Carpenter 
Get  the  maximum  performance  from 
your  Commodore  for  everything  from 
games  to  educational,  business,  and 
home  management  applications.  You'll 
learn  simple  BASIC  commands  and 
programming  concepts,  then  progress 
to  more  advanced  topics  such  as  print 
formatting,  string  handling,  and  simple 
data  structures.  This  easy-to-follow 
guide  also  gives  shortcuts  for  writing 
faster,  more  powerful  programs  and 
shows  you  how  to  exploit  the  full 
sound,  graphics,  and  moving  graphics 
capabilities  of  your  machine. 
$14.95 
Book/Disk  Set:  $39.90 


BASIC  SUBROUTINES  FOR 
COMMODORE  COMPUTERS 

Eddie  Adamis  $12.95 

WINNING  GAMES  ON  THE 
COMMODORE  64 

Terry  Barrett 


<^- 


J 


and  Stephen  Colwill 


Coming  in  November! 


$12.95 


COMMODORE  64  DATA 
FILE  PROGRAMMING 

LeRoy  Finkel,  Jerald  R.  Brown  and 
Glenn  Fisher  $14.95 

Book/Disk  Set:  $39.90 


More  than  three  million  people  have  teamed 
to  program,  use,  and  enjoy  nnicrocomputers 
with  Wiley  Press  microcomputer  paperbacks. 
Look  for  them  at  your  local  bookshop  or 
computer  store!  For  more  information,  write 
to  Gwenyth  Jones,  Dept.  5-1299 

WILEY  PRESS 

a  division  of  John  Wiley  &  Sons,  Inc. 

605  Third  Avenue,  New  York.  NJC 10158 
Pnces  subject  to  change  and  higher  in  Canada. 
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Software  That  Works 
For  Generations 

6  Types  of  Charts  and  Sheets 

Indices 

User  Fields 

Notes,  Footnotes  and  Sources 

No  Limits 

Adapts  to  Your  Hardware 

Comprehensive 

Easy  to  Use 

And  Much,  Much  More 

Send  1o:  brochure  and  sampit;  ptinlouls. 

Family  Roots  inckidrsdrtailed  manuai  add  2  lull  diskelios 

of  projirams  lor  vour  Apple  11.  IBM  PC, 

Commodore  6-1  and  CP/M.' 

Other  genedlo^v  sofiwiitc  also  available. 

Price  S165.  Satistaction  Guaranteed 

American  KxprCSS,  Visa  U  Mastercard  Accepted 


Put  the  Byte  on  Clutter! 

'    .with the 


*Trademj(iis  for 
Apple  Oompulrr. 
[tvc  .  Inii^rnjiionsl 


Familly 
Roots 


HusinL'ss  Mjchines, 
i:hM.  Ijk  .  t?  ns^ila! 
KeseJiCh 


Computer 

Storage 

Cabinet 


No  more  cluttered  tables,  tangled  wires  or 
upsel  spouses.  GROP  '"  Computer  Storage 
Cabinet  puis  everything 
in  its  place. 


QU INSERT,  INC. 

P.O.  Box  216,  Lexington,  MA  02173 

(617)  641-2930 


CPU  keyboard,  disc-drives,  printers, 
displays,  you-name-it.  all  tit  neatly  and 
connpactly  in  GROR  Wires  and  outlets 
are  concealed  FOREVER!! 


Designed  by  connputer  users,  CROP'S 

all-steel  cabinet  with  glare  free,  baked 

enamel  cabinet,  will  fit  with  any  decor  and  will 

handle  Atari,  Commodore  64.  Vic  20,  Pc  Jr.,  TI-99  and 

other  moduler  systems.  ■  GROP  is  fully  guaranteed.  If  you're 

not  completely  satisfied,  your  money  will  be  refunded 


Send  your  checker  

moriey  order  today  to:  \    ^ 
21stCentury  Ind.,  Inc. 

P.O.  B0X141-A  , 

GrandvilleMI49418  I    f^an^e. 

(616)530-0269  |    Street. 

MasterCafd  &  Visa  Accepted  |    City  _ 
Micli.Ordermust  include  4%  i 
Sales  Tax.  ' 
L 


$99.95 


PalenI  Pending 


Please  send  me  a  GROP  Computer  Storage  Cabinet.-  My 
check  or  money  order  for  S99.95  is  enclosed. 


.  Phone . 


.  State 


.Zip. 


Circle  color  desired:  Biege.  Black,  Gray,  Brown 


The  Tester 


Joseph  Kattan 


Multiple-choice  tests  have  been  standard  for  years. 
Now  anyone  zvho  wants  to  create  a  multiple -clwice 
test  on  his  home  computer  can  easily  do  so.  Tests 
can  be  devised  to  teach  youngsters  anything  from 
history  to  sports  trivia,  fust  fill  in  the  DATA  state- 
ments with  the  questions  and  answers  and  the  pro- 
gram will  do  the  rest.  Versions  that  work  on  the 
Commodore  64,  VIC-20,  PETs,  Apples,  Radio  Shack 
Color  Computer,  Coleco  Adam,  IBMs  and  n-99/M 
are  included. 


One  of  the  most  frequently  cited  reasons  for 
purchasing  a  personal  computer  is  its  great 
potential  as  an  educational  tool,  The  home  com- 
puter is  widely  used  to  teach  children  to  spell  or 
perform  simple  arithmetic  calculations  and  to 
drill  adults  on  anything  from  foreign  languages 
to  organic  chemistry.  A  well-designed  instruc- 
tional program  can  produce  spectacular  results  in 
improving  a  student's  command  of  a  subject.  A 
poorly  designed  program,  on  the  other  hand,  will 
frustrate,  rather  than  teach. 

Computers,  for  better  or  worse,  cannot  yet 
think.  If  the  programmer  tells  the  computer  that 
Washington  is  the  capital  of  the  United  States, 
the  program  will  be  less  than  kind  to  the  hapless 
user  who  responds  that  Washington,  D.C.,  is  the 
capital.  If  the  programmer  tells  the  computer  that 
avoir  means  "to  have,"  pity  the  French  student 
who  answers  "to  possess."  These  are,  of  course, 
soluble  problems,  but  they  illustrate  one  weak- 
ness in  computerized  instruction.  No  matter  how 
well  designed  the  program,  there  will  always  exist 
a  correct  answer  to  some  question  that  the  pro- 
gram will  not  recognize.  You  can  instruct  a  pro- 
gram to  accept  Washington,  Washington,  D.C., 
and  Washington,  DC,  as  the  answer  to  the  cap- 
ital question,  but  how  do  you  cover  all  of  the 
synonyms  of  a  word  like  fantastic  in  a  foreign 
language  translation  program? 

No  Ambiguity 

There  is  one  kind  of  testing  that  a  computer 
handles  exceptionally  well,  because  it  is  not  re- 
quired to  reason:  multiple-choice.  It  takes  little 
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effort  to  insure  that  the  answers  to  a  multiple- 
choice  test  are  free  of  ambiguity,  which  is  why 
all  of  the  standardized  testing  in  our  schools 
tends  to  be  multiple-choice.  These  tests,  more- 
over, require  less  effort  on  the  part  of  the  user 
than  answer-oriented  tests,  and  can  be  used  to- 
gether with  the  more  rigorous  answer-oriented 
tests  to  form  a  very  effective  instructional 
package. 

Remembering  To  Answer 

Designing  an  effective  program  for  a  multiple- 
choice  test  is  no  easy  matter,  however.  A  simple 
and  commonly  used  algorithm  selects  a  question 
from  DATA  statements  at  random  and  then 
reads  four  or  five  different  answers  from  the 
DATA  statement,  together  with  a  code  that 
identifies  the  correct  answer. 

There  are  several  deficiencies  to  this  solu- 
tion. For  one,  it  consumes  tremendous  amounts 
of  memory,  as  it  gobbles  up  bytes  both  for  the 
correct  answer  and  for  the  dummy  answers  that 
have  no  use  other  than  to  serve  as  the  incorrect 
choices.  In  addition,  the  program  user  is  always 
presented  with  the  same  set  of  choices,  and  in 
the  same  order,  for  each  question.  The  user  may 
well  get  into  the  habit  of  remembering  that  the 
answer  to  a  question  is  C  without  learning  the 
answer  itself. 

A  more  elegant  solution  should  present  truly 
random  choices  for  each  question.  The  user 
should  rarely,  if  ever,  encounter  the  same  choices 
for  a  given  question.  The  program,  moreover, 
will  be  more  compact  because  every  answer  in  its 
DATA  statements  will  be  a  correct  answer  to 
some  question.  With  this  method,  the  program 
will  select  a  question  from  a  DATA  statement  at 
random,  will  read  the  answer  to  that  question 
from  the  same  DATA  statement,  and  then  read 
four  more  answers  at  random  to  present  as  false 
choices.  This  method  insures  that  the  same  an- 
swer is  not  presented  as  two  separate  choices 
(since  random  selection  could  cause  that  result) 
and  arranges  the  order  of  the  answers  at  random. 
The  U.S.  capital  may  be  C  on  one  run  of  the  test, 
but  A  or  B  or  D  on  another. 


S*K2?:;«^r 


^•I< 


KING  FOR  STRATEGY  GAMES 
FOR  YOUR  ATARI  ?  «. 


.    OBJECTIVE: 

Mcvitsx 


YOU'VE  JUST  FOUND  SIX  OF  THE  BEST. 


OBJECTIVE:  KURSK"  is  the  srand-tactical 
simulation  of  the  southern  half  of  the  Bat- 
tle of  Kursk  -  the  largest  tank  battle  of 
World  War  II.  Consider  Its  scope;  12  German 
divisions  and  9  Soviet  corps  —  a  sum  total 
of  more  than  4000  tanks!  It  is  the  first  com- 
puter 3ame  ever  to  resolve  such  a  massive 
battle  down  to  every  tank,  every  gun, 
every  infantiy  squad!  S39.95. 

REFORGER  'W.  Once  every  year,  NATO 
embarks  on  "Reforger,"  a  military  exercise 
that  tests  its  ability  to  transport  American 
reinforcements  from  the  U.S.  to  Frankfurt 
during  a  simulated  Soviet  strike  of  West 
Germany.  Nov^,  REFORGER  '88  makes  the" 
simulation  available  to  every  ardent  war- 
gamer.  The  Fulda  Gap  is  chosen  as  the 
focal  point  of  the  Russian  attack  in  this 
grand- tactical  wargame.  $59.95. 

All  games  are  on  48K  disk  except  for  50  MISSION 

CRUSH  (40K  disk). 

ATARr  is  a  registered  trademark  of  Atari,  Inc. 


COMPUTER  AMBUSH  ~  is  a  gut-wrenchIng 
simulation  of  man-to-man  combat  in  the 
middle  of  a  half-mined  French  town  during 
World  War  ii.  You  piay  a  squad  sergeant 
(U.S.  or  German)  in  command  of  nine  other 
infantiymen.  Each  man  has  a  name,  indi- 
vidual combat  skills,  even  a  pcraonal  back- 
ground! The  fighting  is  so  fast,  so  real  and 
intense,  you'll  experience  the  sweat  and 
death  of  warIS59.95. 

COMPUTER  BASEBALL-.  Voted  "1982  BEST 
COMPUTER  SPORTS  GAME"  by  Electronic 
Games  Magazine,  Computer  Baseball"  lets 
you  manage  any  NL  or  AL  team  of  past  and 
present.  All  the  options  of  a  real  manager 
are  at  your  disposal.  You  can  even  make 
up  your  own  imaginary  teams!  $39.95. 


^1 


50  MISSION  CRUSH".  As  the  pilot  of  a 
World  War  II  B-17  bomber  in  this  role- 
playing  game,  can  you  survive  50  danger- 
ous but  exciting  raids  over  France  and 
Germany  to  earn  the  crushed  cap  of  a 
true  veteran?  Find  out  as  you  travel  back 
to  1942  as  part  of  the  Sth  Air  Force  Bomb- 
er Group.  S39.95. 

GALACTIC  ADVENTURES",  a  science-fiction 
role-playing,  tactical  combat,  adventure 
game,  will  transport  you  literally  out  of 
this  world  —  to  a  spaceport  of  a  strange 
planet.  You  must  acquire  combat  exper- 
ience and  advanced  skills  before  you  can 
fiy  off  to  different  worlds  in  search  of 
treasures  and  to  do  battle  against  alien 
monsters.  You  can  even  create  your  very 
own  adventures.  $59.95. 

Look  for  these  games  at  your  local  com- 
puter/software or  game  store  today! 


STRATEGIC  SIMULATIONS  imC 

If  there  are  no  convenient  stores  near  you,  VISA  &  M/C  holders  can  order         Stierlin  Road,  BIdg.  A-200,  Mountain  View,  CA  94043.  Please  include  $2.00  for 
direct  by  calling  800-227-1617,  cxt  335  toll  free.  (800-779-3545,  ext-  335  in  shipping  &  handling.  (California  residents,  add  6.5%  sales  tax.)  All  SSI  games 

California.)  Toorder  by  mail,  send  your  check  to:  Strategic  Simulations  Inc,  883         carry  a  14-day  "satisfaction  or  your  money  back"  guarantee. 

FOR  ALL  SSI  GAMES,  WRITE  FOR  YOUR  FREE  COPY  OF  OUR  COLOR  CATALOG.    ■ 


OMPUTE!  B 


COMPUIil's  5ECC!MD  SCXX  OF 


COMMODORE 


pmnMnt  *i  TTw  tjwr  oor^^et  from' 


COMPUTE'S  Second     I 
Bo<^  of  Commodor 
64  Games 

Sixteen  outstanding  games?'^^ 
from  detailed  stmulatlons  to      1 
fast-paced  mochlne  lan- 
guage arcade  games.  Run 
for  president  In  "Campaigr^^ 
IVIanager."  defend  yourse^^J 
against  stiofks  and  acid  rdfr^r 
In  "The  Ffontlc  FIstierman,'  or  ':! 
defend  a  world  In  "Aslro- 
PANIC!"  Ptiotogropti  the  Loch  ,a 
Ness  monster,  battle  In  an  ; 
arena,  or  establish  trade   | 
routes  to  India.  The  best    | 
gomes  from  COMPUTE!  ancfl 
&2MPUWS  GazBtte,  and  T 
ime  appearing  here  tor "' 
TirSt  lime  anywhere.  Articles^ 
show  you  how  to  design  a 
videogame  and  explain  the 
Intricacies  of  writing  your  own 
text  adventure. 

$12,95 

ISBN  0-942386-64-7 


COM  MODQJl 


OMPinH's 
Beginner's  Guide  To 
Commodore  64 

SdliiTKJ 

Clear  descriptfons  and  nu- 
merous examples  show  how 
to  program  sound  and  music 
on  the  64.  Well-known  Com- 
modore author  John  Hellbom 
teaches  both  beginning  and 
advanced  programmers  the 

^  and  outs  of  the  SID  chip, 
pxplainlng  how  to  create  sim- 
t)le  sounds,  how  to  utilize  the 
Computer's  advanced  sound 
features,  and  even  how  1o 
bombine  sound  and  graphics 
[n  on  arcade-style  game. 

.Also  Included  ore  two  sound 
editors,  which  make  compos- 
ing easy,  and  dozens  of  som- 
ple  sound  effects  you  con 
type  In  and  hear. 

$12.95 

iSBN  0-942386-54-X 


COMPUTERS 

Machine 
Language 


torllw 

Commodore 
64 


COMPUTERS  Machine 
Language  Routines 
For  The  Commodore 


Sometimes  BASIC  Is  just  not 
fast  enough,  or  versatile 
enough,  for  programming  on 
the  Commodore  64.  Machine 
language  (ML)  Is.  But  creating 
ML  routines  can  be  difficult  for 
the  beginning  or  intermediate 
progrommer.  This  collection 
offers  ready-to-use  ML 
routines  that  can  be  easily  in- 
serted Into  BASIC  programs, 
as  well  as  stand-alone 
routines  that  make  the  64 
even  more  powerful.  Valu- 
able programming  aids  such 
as  one-key  commands,  auto- 
matic line  numbering,  and 
program  seorches  are  here. 
Routines  useful  in  games  and 
graphic  design  are  also  In- 
cluded. There  are  even  com- 
plete machine  longuoge 
programs  to  help  in  the  cre- 
ation of  custom  characlera 
and  sprites. 

$14.95 

ISBN  0-942386^8-5 


COMPLrE;'sGuaera 


TI-99/4A 

Sound 

and 

Graphics 


i  COMPUTEi's  Guide  to 
Tl  Sound  &  Graphics 

I     Using  dozens  of  examples 
ftand  clear,  nontechnical 
Kexplanatlons,  COMPUTEI's 

Guide  to  Tl  Sound  and  Graph- 
^ rcsjntroduces  you  to  the 
.^^^^ndous  sound  and 
'^^Phtcs  capabllllles  of  your 
^  home  computer.  This  book 
Silncludes  exciting  arcade- 
:  styie  games,  challenging 
educational  programs,  o  ver- 
satile sprite  editor  and  many 
more  useful  ready-to-fype-in 
■    programs.  Whether  you're  a 
beginning  Tl  user  or  on 
experienced  programmer, 
this  is  a  book  you'll  refer  to 
again  and  again. 

$12.95 

ISBN  0-942386-46-9 


^J^l 


COMPUTERS 
^k  of  VIC  Gai. 

Ttiere's  an  exciting  mix  of 
sChases,  challenges,  and  puz^ 
ilers  In  this  collection  of 
james  (or  the  VIC.  It  includes 
nany  of  the  most  popular 
lames  from  recent  Issues  of 
iOMPUmi  and  COMPUTERS 
^  "    Me.  as  well  as  several 
love  never  before  beer* 
ilshed.  Whether  you  want: 
0  explore  misty  dungeons,    - 
■    on  hostile  aliens,  unrave' 
Itating  brain-leasers,  or 
^,^r\  learn  how  to  creates' 
games  of  your  own,  Cd"" 
S^iOT/'J  Second  Book  of  i 
jGomes  Is  (or  you.  J^ 

$1Z95 

ISBN  0-942386-57-4 


i^     COMPUTEi's 

IBM  PC&PCjr 

GAMES 

FOR  KIDS 


COMPUTEI'S  PC  & 
PCjr  Games  For  Kfds 

A  complete  library  of  educa- 
tional games  ready  to  type  In 
ond  run  on  the  PC  and  Pjr  for 
children  from  preschool  to 
high  school.  "Notecratter" 
matches  wits  against  the 
computer's  perfect  pitch.  "Di- 
amond Miner"  explores  a 
subterraneon  maze  In  search 
of  treasure.  "Movers  and 
Shakers'  tests  Icnowledge of 
,  historical  figures.  There  are 
I  also  26  other  games  which 
^* — ch  children  skills  from 
Png  to  world  geography 
bte  a  quiz  on  any  subject, 
or  moke  it  even  easier  to  use 
■■  the  computer  with  the  two 
utility  programs  Included. 

$14.95 

ISBN  0-942366-49-3 


COMPUTEt'i 


ommodore 


rcolecilon 


1£CfiMPUTE!'s 
^Commodore 


ilecnon: 

28  Original  Programs 

For  The  VIC  And  64 

.Commodore  Collecllon. 
Ihologv  of  28  previousH^ 
ibllshed  programs  (or  thetj 
VIC-20  and  Commodore  64, 1 
.continues  the  COMPUTE!  Iro-  1 
f^ition  of  practical  programs  > 
^jn  easy-to-use  form,  incluc;!©?^^' 
^exciting  games,  stimulal 
^^educational  programs,  v 
able  utilities,  ond  useful  s 

applications  1o  make  your 
Commodore  computer  an 
exciting  part  of  every  doy. 

$12.95 

ISBN  0-942386-55-8 


COMPUTB^s^. 

Extended  BASIC 
Home  Applicatfons 

TI-99/4A 


PUTEI's  Oukie  To 
Extended  BASIC 
Home  Applications 
On  The  n-99/4A 

Tl  owners  who  wont  to  put 
their  computers  to  work  will 
appreciate  the  many  useful 
programs:  sorting  routine. 
checkt>ook  adder,  data  man- 
ager, spreadsheet  program, 
electronic  card  file,  appoint- 
ment calendar,  ond  more. 
The  home  applications  are 
supplemented  by  a  cieorly 
written  Introductory  chapter 
that  explains  the  many  fea- 
tures of  Tl  Extended  BASIC. 

$12.95 

ISBN  0-942386-4  ]-B 


lb  drd^rl^ur  aapy.  call  toll-frBO  1 -800-334-0868  or  write: 
COMPUTE!  Books.  P.  O.  Box  5406.  Greensboro,  NC  27403 


Segregated  Data 

Even  this  method,  however,  has  a  potential  pit- 
fall, and  the  solution  discussed  here  resolves  it. 
Let's  take  a  U.S.  history  test  as  an  example.  The 
answers  to  such  a  test  may  be  George  Wash- 
ington, or  Philadelphia,  or  1776,  Obviously,  it 
would  be  quite  absurd  to  present  Philadelphia  or 
1776  as  possible  answers  to  a  question  calling  for 
the  name  of  the  first  president.  The  solution  to 
this  problem  is  to  segregate  the  DATA  state- 
ments containing  the  questions  and  answers  into 
different  areas  of  the  program  and  to  select  an- 
swers to  each  question  only  from  a  valid  area. 
For  example,  DATA  statements  between  1000 
and  1999  could  contain  questions  concerning 
names  of  persons;  DATA  statements  between 
2000  and  2999  could  contain  questions  concern- 
ing places;  and  so  forth.  The  program  chooses  an 
area  at  random  and  then  stays  in  that  area  to 
present  the  incorrect  answers.  If  the  answer  to 
the  question  selected  is  George  Washington,  the 
four  incorrect  answers  will  always  be  names  of 
persons. 

This  solution  has  an  added  advantage.  It  al- 
lows for  the  inclusion  of  diverse  subjects  on  a 
single  test,  with  the  testing  either  confined  to  a 
subject  chosen  by  the  user  or  mixed  at  random 
by  the  corriputer.  This  program  is  intended 
primarily  for  single-subject  tests  that  require  the 
segregation  of  answers  by  types,  as  in  the  U.S. 
history  example  above. 

How  It  Works 

The  program  relies  on  two  arrays — Q,  which 
stores  the  number  of  questions  in  each  category, 
and  T,  which  selects  the  answers  at  random.  The 
variable  N  is  used  to  store  the  group  of  questions 
and  answers  to  be  called.  The  question  and  an- 
swer are  selected  by  the  computer  at  line  300. 
Since  answer  groups  are  stored  in  DATA  state- 
ments beginning  with  1001,  2001,  and  so  forth, 
the  program  adds  that  number  to  a  random  num- 
ber from  1  to  the  number  of  questions  for  the 
appropriate  group,  as  indicated  in  the  Q  array. 
For  example,  if  the  question  and  answer  are  to 
come  from  group  1,  for  which  questions  and  an- 
swers are  stored  in  lines  1001  through  1011,  the 
program  looks  to  the  variable  Q(l)  to  ascertain 
the  range  of  random  numbers  to  generate. 

Once  a  question  and  answer  have  been  read, 
the  program  uses  the  same  random  number  for- 
mula to  look  up  the  incorrect  answers.  It  stores 
the  random  numbers  (data  line  numbers)  in  a  T 
array  (line  330)  and  makes  sure  that  none  of  the 
numbers  in  that  array  is  equal  to  the  line  number 
of  the  correct  answer  or  to  the  number  of  an- 
other element  in  the  array  (line  335).  At  line  340, 
the  program  chooses  where  to  place  the  correct 
answer,  which  can  be  any  choice  from  one  to 
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five,  and  then  proceeds  to  place  all  of  the  choices 
on  the  monitor  or  television  screen.  Once  an  an- 
swer is  entered,  the  program  indicates  whether 
or  not  it  was  correct.  In  the  case  of  a  correct  an- 
swer, the  program  waits  for  two  seconds  (lines 
400  and  410)  and  then  constructs  a  new  screen. 
If  the  answer  entered  is  incorrect,  the  program 
waits  for  the  RETURN  key  to  be  pressed  before 
moving  on  to  the  next  screen. 

Screening  Keys 

One  other  matter  is  the  little  subroutine  begin- 
ning at  line  800.  The  entire  subroutine  could  be 
replaced  with  a  single  INPUT  statement.  The 
advantage  of  the  subroutine  is  that  it  screens  out 
unwanted  keys  (in  this  case,  anything  but  a 
number)  and  maintains  the  integrity  of  the  screen 
display.  In  addition,  the  subroutine  does  not  at- 
tach a  question  mark  to  a  prompt,  allowing  you 
to  insert  it  where  it  is  appropriate  and  omit  it 
where  it  is  not.  Study  the  DATA  statements 
beginning  at  line  1001  and  you  can  see  the 
flexibility  afforded  by  the  subroutine. 

This  program  is  obviously  meant  to  be 
modified.  When  modifying  it  for  your  own  use, 
pay  special  attention  to  the  Q  array.  The  array 
should  be  DIMensioned  to  the  number  of  answer 
categories  in  the  program.  The  same  number 
should  be  placed  in  the  variable  SUBJ.  The  ele- 
ments of  the  Q  array  should  be  equated  to  one 
more  than  the  number  of  questions  in  the  appro- 
priate category.  Finally,  the  questions  and  an- 
swers should  be  placed  on  the  same  DATA 
statement,  and  the  DATA  statements  should  be 
arranged  in  increments  of  one  beginning  with  a 
Hne  number  of  N*  1000  +  1,  N  being  the  number 
of  the  group.  Make  sure  that  neither  the  ques- 
tions nor  the  answers  contain  any  commas,  since 
the  BASIC  interpreter  will  take  the  commas  to 
indicate  the  end  of  a  string. 

Program  1 :  The  Tester,  Atari  Version 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  thiis 
program  in. 

Pd  10  REM  THE  TESTER 

K 20  REM  MULTIPLE-CHOICE  TEST  MAKER 
EL  40  REM  THIS  PROGRAM  WILL  GENERATE 
OJ  50  REM  MULTIPLE-CHOICE  TESTS  FOR 

ONE 
IE  60  REM  OR  MORE  SUBJECTS 
CI  100  POKE  710,78:POKE  712,7a:POKE 

709,4:POKE  752,1;REM  SET  SCRE 

EN  COLORS,  TURN  CURSOR  OFF 
NJ110  OPEN  #1,4,0,  "K:" 
JF  120  DIM  TITLE*  <38)  ,QUES*C38)  ,ANS« 

(30) , TEMP* (30) , NUM» (3) , BL« (30 

) , Q(4) , T (3) 
DJ  130  TITLE*="  ":  TITLE*  (38)  =TITLE*: 

TITLE*  <2) =TITLE*: QUES«  =  TITLE* 

: ANS*=TITLE»( 1,30) : TEMP*=ANS* 

;BL«=ANS* 


SPRITE  GEHEnATOFtI 


xxxxxxxxxxxxxxxxxxxxxxxE 


DATA 

JSS,S5S,255 

12»,I),1 

1J«,0.l 

12»,0.1 

12t.24.1 

128,24.1 

12B,24.1 

12B,S0,1 

128,60,1 

128,126.1 

128,126.1 

128.255.1 

133.60,161 

134,60,97 

142.24.113 

142,24,113 

132,0,33 

132,0.33 

li«.0,1 

12».0,1 

26S.2S5.2S5 
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0  -  Uang  CodcPre-64 

1  —  CBM-64  Keyboard  RevlMI 

BASIC  Tutorial 

2  -  Inlrixluction  to  BASIC 

3  —  BASIC  Commands 

4  -  BASIC  SBlemsnts .. 

5  -  BASIC  Fundions    X 


6  -  Keytioatd  GRAPHICS 

iclion  to  SPRITES 
8  —  SPfltlE  Generator 
/^  —  SPHITE  DemonslFator 
A  -  InfcoducBon  to  MUSIC 
B  —  MUSIC  Generator 
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■  Options  \ 

f  K  -  Keyword  Inquiry  \ 

R  —  Burt  Sample  Programs 
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10  FOR  1  =  10  TO  20  __. 

STEP  2  ^""^^ 

20  j^a-i 

30  NEXT  I 


CURRENT  VALUES 


I  PRESS  SPACE  BAR  TO  DEMONSTRATE  fiXECUTJON  I 


<6R0W  21   COL  24  DATA^X  HETURMRotiesh 
II  Main  ISCurtont  ISNeil  CLEAR  HOME 


MUSIC  CENEAATOR 


NOTE  NUMBER..    MAX  NOTE  . 


OCTAVE .         DURATION . 
LO  ...       LOOP 


F2-PLAV  &  SHOW  MUSIC    F4-PLAY  ONLY 
F1-MAIH  FI-CURRENT  F5-NE)Cr 


CodePra.C4 

MUSIC  Demo 

isbator 

JM 

m 

■  ■  ■ 

■ 

I 

■  ■  ■ 

■    P 

PPP 

li 

m 

NOT^ 

■  oTw 

' 

r|t|4u 

To 

' 

cT.TJ 

i: 

•           WF 

PULSE        A       D 

S        R       OUR 

SJI 

1           33|S) 

0,         0         0         8 

12        12           0 

M 

1           33|S) 

0.         0         0         9 

12        12         20 

M 

2       um 

0.         0         0         9 

12       12         20 

)          651P) 

8,         0         0         9 

12        12         20 

4          1S9(H) 

0,         0         0         9 

12        12         20 

M 

5            33(S) 

0,         0         4      10 

8        10         20 

M 

9 

Seiecl  line  wilh  cursor 

P(ay  keyboard . 

or  pie^s  12  io  edit  line  or  tA  lor  SDng. 
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Simply  Incredible*  Incredibly  Simple. 

CodePro-64  For  Your  Commodore. 

Instructional  Software  ThatWill  Amaze  You 

With  What  You  Uam. 


CodePro-^  is  the  easy  way  to  learn. 

CodePro64  astonishes  you  with  hew  much 
you  can  learn.  And  hcweas/learninscanbe. 
NMth  CodePro-64,  you'll  learn  to  write  your  own 
programs.  You'll  develop  advanced 
program  mi  ng  ski  I  Is  with  gra  phics,  sprites  and 
music.  And  best  of  all,  you'lMearnwsually 
CodePro-64  is  a  complete  package. 

Rrstand  foremost,  it's  a  comprehensive  BASIC 
tanquage  tutorial.  With  it,  you  learn  by  seeing  as 
well  as  by  doing.  You  watch  variables  change 


value.  You  see  statement  branching  occur.  You 
can  even  see  "For-Next"  statements  executed. 
There's  graphics  instruction,  too. 

CodePro-64  also  has  a  SPRITE  Demonstrator 
and  Generator.  With  it,  you 'I  I  master  the  concepts 
and  techniques  of  graphics  programmirig  with 
sprites.  And  you  'I  I  be  able  to  create  and  save 
your  own  sprites  for  use  in  your  programs. 
And  we  don't  forget  the  music. 

You'l  i  use  the  mUsIC  Demonstrator  a  nd 
Generator  to  learn  how  to  get  the  musical  effect 


you  v^^nt.  ExacUy  And  in  seconds.  You'll  use  it  to 
compose  simple  tunes  on  the  screen  and  then 
save  ttie  tune  to  a  d  iskette  fi  le. 
Discover  how  good  CodePro-64  ready  is. 

We  shipCodePro-64  as  a  package  of  16 
integrated  programs,  distributed  on  two 
diskettes,  and  contsi  ning  sample  prcgrams  fa 
unlimited  use.  It  is  supported  by  a  140-page 
manual  and  is  packaged  in  an  attractive  three- 
ring  binder. 
CddePro-64.  Incredible.  And  simple. 


HOW  TO  ORDER 


Send  personal  check,  money  order  or 
MasterCard/VISA credit  card  information.  Please 
add  $3,00  for  shipping  and  handling  per  order; 
foreign  orders  must  add  $15,00  per  unit  (except 
Canada).  US  funds  only  Sorry,  butnoCOD's.  NC 


residents  add  414%  sales  tax.  Corporate  quantit/ 
discounts  available.  Dealer  inquiries  invited. 

And  for  faster  seivice  on  credit  card  orders 
call  Toll  Free  1-800-762-7874,  In  North  Carolira  call 
919-787-7703. 


mMrMr 


SYSTEMS  MANAGEMENT  ASSOCIATES 

3700  Computer  Drive,  Dept.  CPC 
Raleigh,  North  Carolina  27609 


CodePro-64  is  a  trademar1<  of  Systems  Manasement  Associates.  ©SMA  1984 
-Our  Guarantee.  Use  CodePrc^^M  fa  10  days.  If  you  are  not  coTTi  pi  etely  satisfied  return  it  to  us  (urKaarna3ed)forafuNrEfu     — ' 


DJ  2  00 

NC  205 

PK  210 

FP  220 

m  230 

NB  240 

HJ  250 

QL  140  Q(1)  =  11:D(2)=11:Q(3)  =  11:Q<4)  = 
1 i : REM  INSERT  HERE  ONE  LESS  T 
HAN  NUMBER  DF  QUESTIONS  FDR  E 
ACH  CATEGORY 

?  "<:CLEARJC4  spaces:  PLEASE  CH 
DOSE  ONE  SUBJECT:" 
SUBJ=4:REM  SUBJ  IS  NUMBER  OF 
SUBJECTS  IN  TEST 

?  :RESTORE  900-.FGR  1  =  1  TO  SUB 
J:READ  TITLE*:?  I;")  "sTITLE* 
:NEXT  I:? 

GDSUB  800:  IF  NKl  OR  Nl>4  THE 
N  POSITION  C,R:GOTO  220 
N=N1;?  :?  "HOW  MANY  QUESTIONS 
r>     "  • 

GOSUB  800:  IF  NKl  THEN  POSITI 

ON  C.RiGDTO  240 

TOTAL=Nl :RESTORE  900:FOR  1=1 

TO  NrREAD  TITLE«:NEXT  I:TITLE 

« (LEN (TITLE*) +1 ) ="  TEST" 
m 300  SCORE=0:FOR  COUNT=l  TO  TOTAL: 

?  " CCLEAR> " : POKE  a5.(40-LeN(T 

ITLE«))/2:?  TITLE*:? 

ANS  =  N«  1000+-1  +  INTlRNDi0)»Q<N)) 

:RESTORE  ANS:READ  QUES*:?  QUE 

S*:?  : READ  ANS* 

FOR  1=0  TO  3 

T (I )=N* 1000+1 +  INT(RND(0>  «Q<N) 

):IF  T(I)=ANS  THEN  330 

FOR  J  =  0  TO  3s  IF  lOJ  AND  T(I) 

=T(J)  THEN  POP  rGOTO  330 

NEXT  J:NEXT  I : J= 1  +  I  NT < RND < 0 >  « 

5):A=0:FOR  1=1  TO  5:7  I;")   "; 

IF     lOJ     THEN     RESTORE     T(A):REA 

D     QUES*:READ     TEMP*:?     TEMP*:A= 

A+1:G0T0     370 

?     ANS* 

NEXT     I  :  ? 

GDSUB     800:  IF     NKl     OR     Nl>5     THE 

N     POSITION     C,R:60T0     380 

IF     NIOJ     THEN     430 

SC0RE=SC0RE+1 : ?     : POKE     85,18:? 
"GOOD      ! " : POKE     20, 0 

IF     PEEK(20)<90     THEN     410 

GOTO     460 

?     :?     "SORRY,      THE     ANSWER     IS     "; 

:1F     LEN{AN5*)>18     THEN     ? 

?     ANS*:?     :?     "t6     SPACESJPRESS 

r-iatiJri:     TO     CONTINUE" 

POKE  764,255:GET  #1,A:IF  A<>1 

55  THEN  450 

NEXT  COUNT 

?  " tCLEAR> " : POKE  85,(40-LEN<T 

ITLE*)>/2:?  TITLE*:? 
Ctl510  ?  "OUT  OF  ":  TOTAL;"  QUESTIONS 

,  YOU  ANSWERED":?  SCORE;"  COR 

RECTLY.  YOUR  SCORE  IS  "; 

?  INT (  (SCORE/TOTAL)  *  100  +  0. 5)  ; 

"  7i .  " 

?  :?  "lrl^*iJ:»:  FOR  ANOTHER  TEST 

,  t  TO  END" 

POKE  764,255:BET  #1,A:IF  AOl 

55  AND  A042  THEN  540 

IF  A=155  THEN  200 

?  " CCLEARJ" : END 

C  =  PEEK (85)  J  R  =  PEEK (84) 

POSITION  C,R:?  BL*:TRAP  805:Y 

=1 : S=0:NUM*="" 

POSITION  C  +  Y-1,R:?  "<;T>";:P0K 

E     764,255:GET     # 1 , A : POS I T I  ON     C 

+  Y-1,R:IF     A0126     THEN     925 


N6  310 

fl!  3  20 

NH  330 

PJ  335 

DM  34  0 

AK  350 

ND  360 

JL  370 

ED  380 

DE  390 

DH  400 

SF  4  10 

6J  420 

PK  4  30 

11  440 

PD  450 

6C  4  60 

EI  500 

Ntl520 

HK530 

DH54  0 

ftD  550 

t;!l  560 

KE  800 

NE  805 

KH  810 

Microsoft  And  TI-99/4A 
Version  Notes 

jeff  Homdani,  Editorial  Programmer 

The  Microsoft  version  of  "The  Tester"  (Pro- 
gram 2)  runs  on  the  Commodore  64,  the 
VIC-20,  all  PETs,  the  Apple  II +  ,  lie,  and 
lie,  the  Radio  Shack  Color  Computer,  the 
Coleco  Adam,  and  the  IBM  PC  and  PCjr.  If 
you  have  a  VIC  without  memory  expansion, 
remove  all  REMs  and  spaces  when  typing  in 
the  program.  With  an  IBM  PC  or  PCjr,  make 
the  following  minor  changes: 

Add  line  100: 

100  RANDOMIZE(O) 
Change  line  220  to: 

220  PRINTtPRINT  "YOUR  CHOICE:"; 

Add  line  225: 

225  Z$= INKE Y$:RD  =  RND:N  =  VAL(Z$):IF 
Z$  =  ""  OR  (N<1  AND  N>4)  THEN  225  ELSE 
PRINT  N 

Last,  in  Program  2,  line  930  contains  a 
statement  to  clear  the  screen.  Replace  this 
with  the  appropriate  statement  for  your 
computer.  For  instance,  on  the  Apple,  line 
930  would  read: 

930  HOME:RETURN 

The  TI-99/4A  version  of  The  Tester 
{Program  3)  will  run  in  either  Console  or 
Extended  BASIC. 


flP  815 

B«  820 

t>] 

825 

DO  830 

DD  835 

NO  840 

EJ 

900 

KM 

1000 

NK 

1001 

m 

1002 

EL 

1003 

GL 

1004 

FH 

1005 

FH 

1006 

DL 

1007 

IH 

1008 

GOTO  810 
N1=VAL (NUM*) 


IF  Y>1  THEN  Y=Y-1:?  "  " ; s NUM* 

=NUM* ( 1 , Y) 

GDTD  810 

IF  A=155  THEN  ?  "  " : GOTO  840 

NUM* (Y, Y) =CHR* <A) : IF  Y=l  THEN 

S  =  A 
?  CHR*  <A)  ;  ; Y  =  Y+1 
POKE  ADR (NUM*) , S 
: RETURN 
DATA  HISTORICAL  F I GURES . WORLD 

CITIES, NEWSMAKERS, COMPUTERS 

REM  HISTORICAL  FIGURES 

DATA  THE  FIRST  PRES I  DENT , GEO 

RGE  WASHINGTON 

DATA  FIRST  CHIEF  JUSTICE, JOH 

N  JAY 

DATA  WHO  INVENTED  COTTON  SIN 

?  ELI  WHITNEY 

DATA  PRESIDENT  OF  THE  CDNFED 

ERACY, JEFFERSON  DAVIS 

DATA  WHO  DEBATED  LINCOLN?, ST 

EPHEN  DOUGLAS 

DATA  FAMOUS  ABOL I T I  ON  I  ST ,  FRE 

DERICK  DOUGLASS 

DATA  BRITISH  NAV I  GATOR , FRANC 

IS  DRAKE 

DATA  THE  THIRD  PRES I  DENT , THO 

MAS  JEFFERSON 


64    COMPUTB     Septembef  1984 


NF  1009  DATA  HE  PRESIDED  OVER  THE  NE 
W  DEAL , FRANKLIN  DELANO  RDOSE 
VELT 
JH  1010  DATA  WHO  WAS  ASSASSINATED  IN 

DALLAS?, JOHN  F.  KENNEDY 
PD101J   DATA  RAILROAD  MAGNATE  .  CORNEL 

lUS  VANDERBILT 
HP  2000  REM  WORLD  CAPITALS 
m2001  DATA  WHAT  IS  THE  CAPITAL  OF 

JAPAN?, TOKYO 
IP  2002  DATA  WHERE  IS  TRAFALGAR  SOUA 

RE?, LONDON 
£C  2003  DATA  WHERE  IS  THE  WESTERN  WA 

LL?, JERUSALEM 
NK  2004  DATA  WHERE  IS  THE  COLISEUM"^, 

ROME 
OH  2005  DATA  WHERE  IS  RED  SQUARE?,  MO 

SCOW 
t:C  2006  DATA  WHERE  IS  THE  TAJ  MAHAL? 

.  AGRA 
CF  2007  DATA  WHAT  IS  THE  CAPITAL  OF 

AFGHANISTAN?, KABUL 
AH  2008  DATA  THE  PARTHENON  IS  IN  THI 

S  CITY. ATHENS 
HO  2009  DATA  CITY  LEASED  BY  ENGLAND 

FROM  CHINA, HONG  KONG 
t;K2010  DATA  WHERE  IS  THE  LINCOLN  ME 

MORI AL?, WASHINGTON 
CF2011   DATA  THIS  CITY  IS  FAMOUS  FOR 

ITS  CANALS, VENICE 
m 3000  REM  NEWSMAKERS 
f:E3001  DATA  PRESIDENT  OF  FRANCE,  MIT 

TERAND 
OD  3002  DATA  FORMER  SECRETARY  OF  STA 

TE  UNDER  REAGAN, HAIG 
ID  3003  DATA  SOVIET  FOREIGN  MINISTER 

. GROMYKO 
Nft  3004  DATA  GERMAN  CHANCELLOR , KOHL 
EE  3005  DATA  SECRETARY  OF  TREASURY, R 

EBAN 
t:N  3006  DATA  CHAIRMAN  OF  SOVIET  COMM 

UNIST  PARTY , CHERNENKD 
FB  3007  DATA  CANADIAN  PRIME  MINISTER 

, TRUDEAU 
Jfi 3008  DATA  JAPANESE  PRIME  MINISTER 

, NAKASONE 
(IE  3009  DATA  SECRETARY  OF  STATE,  SHUL 

TZ 
KL  3010  DATA  MAYOR  OF  NEW  YdRK,KOCH 
FL3011  DATA  BRITISH  PRIME  MINISTER, 

THATCHER 
GK  4000  REM  COMPUTERS 

HE  4001  DATA  THE  BRAIN  OF  THE  COMPUT 
ER  IS  CALLED. CENTRAL  PROCESS 
IN6  UNIT 
AN  4002  DATA  THE  FASTEST  WAY  TO  PRDC 

ESS  DATA, MACHINE  LANGUAGE 
Cti  4003  DATA  A  SIMPLE  COMPUTER  LANGU 

AGE, BASIC 
CI  4004  DATA  USES  REVERSE  POLISH  NOT 

ATION. FORTH 
PI  4005  DATA  8  BITS  ON  THE  6502, BYTE 
PK  4006  DATA  A  16-BIT  MICROPROCESSOR 

, 68000 
GF  4007  DATA  TRANSFERS  DATA  FROM  MEM 

ORY  TO  CPU, BUS 
Aft  4008  DATA  DATA  ARE  PUSHED  AND  PUL 

LED  HERE, STACK 
DO  4009  DATA  USED  FOR  INDEXING,  X  REG 

ISTER 
NG4010  DATA  FASTEST  COMPUTATIONS  TA 


KE  PLACE  HERE, PAGE  ZERO 
00  4011  DATA  A  NUMBERING  SYSTEM, HEXA 
DECIMAL 

Program  2:  The  Tester,  Microsoft  Version 

Refer  to  the  "Automatic  Proofreader  article  before  typing  thiis 
program  in. 

20  REM  ***  MULTIPLE  CHOICE  TEST  MAKER  *** 

:  rem  9 

110  DIM  QA$(44),AN$(44):G0SUB  930:FOR  1=1 

"PC  44  :  rem  172 

120  READ  QA$(I),AN$(I) :NEXT  I : F0RJ=1  TO  4 

;Q(J)=10:READ  TL?{J):NEXT  J    : rem  38 
200  GOSUB  930: PRINT  "PLEASE  CHOOSE  ONE  SU 

EJECT:"  :rem  96 

210  PRINT:FDR  1=1  TO  4:PRINT  I;")  "rTL$(l 

) :NEXT  I  :rem  226 

220  PRINT:PRINT  "YOUR  CHOICE" ;: INPUT  Z$:N 

=VAL(Z$) :IFN<1  OR  N>4  THEN  200 

:rem  198 
230  PRINT: PRINT: PRINT  "HOW  MANY  QUESTIONS 

";:INPUT  Z? :N1=VAL (Z? )         : rem  13 
240  IF  N1=0  THEN  230  : rem  213 

300  TL=N1 :SC=0 :FOR  CT=1  TO  TL:GOSUB  930 :P 

RINT  TL$(N);"  TEST"  : rem  212 

310  ANS=INT(RND(1)*Q(N) )+ (N* 11 }-10 : PRINT : 

PRINT  QA5(ANS)  : rem  202 

320  FOR  1=0  TO  3:G0SUB  800:J=0     : rem  75 
330  IF  loJ  AND  T{I)=T(J)  THEN  GOSUB  800: 

J=0;GOTO  330  :rera  96 

335  J=J+1:1F  J<=3  THEN  330         : rem  76 
340  NEXT  I:J=1+INT(RND(1)*5) :A=0:PRINT:PR 

INT:FOR  1=1  TO  5: PRINT  I?")  " ; : rem  86 
350  IF  loj  THEN  PRINT  AN$  (T  ( A)  )  :  A=A+1  :G0 

TO  370  : rem  60 

360  PRINT  AN$(ANS)  : rem  12 

370  NEXT  I: PRINT  : rem  233 

380  PRINT:PRINT  "ENTER  YOUR  ANSVJER"  ;  :  INPU 

T  Z?:N1=VAL(Z$)  : rem  251 

390  IF  NKl  OR  Nl>5  THEN  380      :  rem  116 
395  IF  NloJ  THEN  430  :  rem  57 

400  SC=SC+1 :PRINT:PRINTTAB(9)  "GOOD  !":F0 

R  1=1  TO  1000;NEXT  I:GOTO  460 : rem  225 
430  PRINT:PRINT  "SORRY,  THE  ANSV-fER  IS:";P 

RINT  AN$(ANS)  : rem  46 

440  PRINT: PRINT  "<RETURN>  TO  CONTINUE" 

: rem  146 
450  INPUT  Z$  :rem  167 

460  NEXT  CT  : rem  112 

500  GOSUB  930: PRINT  TLS(N);"  TEST" 

: rem  154 
510  PRINT: PRINT: PRINT  "TOTAL  QUESTIONS  "; 

TL: PRINT  "CORRECT  ANSWERS  ";SCirem  48 
520  PRINT  "YOUR  SCORE  IS  " ; INT ( (SC/TL) *10 

0+.5);"%"  :rem  23  3 

530  PRINT: PRINT  "WANT  ANOTHER  TEST(y/n)" 

: rem  226 
540  ZS="":INPUT  Z$:IF  Z$<>"Y"  AND  Z|<>"N" 
THEN  530  :rem  98 

550  IF  Z5="Y"  THEN  200  : rem  66 

560  GOSUB  930:END  : rem  200 

800  T(I)=INT(RND(1)*Q(N) )+(N*ll)-10:IF  T( 

I)=ANS  THEN  800  : rem  0 

810  RETURN  :rem  121 

900  REM  THIS  SUBROUTINE  CLEARS  THE  SCREEN 

.  FOR  APPLE  COMPUTERS  USE  "HOME" 

: rem  195 
910  REM  FOR  IBM  PC  AND  PCJR.,      : rem  44 

920  REM  AND  TRS-80  COLOR  COMPUTERS  USE  "C 
LS"  STATEMENT.  .:  rem  23 
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930  PRINT" (CLR)": RETURN  : rem  26 

1000  REM  HISTORICAL  FIGURES       : rem  172 

1001  DATA  THE  FIRST  PRESIDENT , GEORGE  WASH 
INGTON  :rem  218 

1002  DATA  FIRST  CHIEF  JUSTICE, JOHN  JAY 

: rem  26 

1003  DATA  WHO  INVENTED  COTTON  GIN, ELI  WHI 
TNEY  srem  12 

1004  DATA  PRESIDENT  OF  CONFEDERACY, JEFFER 
SON  DAVIS  :rern  138 

1005  DATA  WHO  DEBATED  LINCOLN?, STEPHEN  DO 
UGLAS  :rem  87 

1006  DATA  FAMOUS  ABOLITIONIST , FREDERICK  D 
OUGLASS  :rem  90 

1007  DATA  BRITISH  NAVIGATOR, FRANCIS  DRAKE 

:rem  59 

1008  DATA  THE  THIRD  PRESIDENT, THOMAS  JEFF 


ERSON 


;  rem  135 


1009  DATA  HE  PRESIDED  OVER  THE  NEW  DEAL.F 


RANKLIN  DELANO  ROOSEVELT 


:  rem  213 


1010  DATA  WHO  WAS  ASSASSINATED  IN  DALLAS? 
,JOHN  F.  KENNEDY  : rem  156 

1011  DATA  RAILROAD  MAGNATE, CORNELIUS  VAND 
ERBILT  ;rem  243 

2000  REM  WORLD  CITIES  t rem  239 

2001  DATA  WHAT  IS  THE  CAPITAL  OF  JAPAN?, T 
OKYO  :rem  140 

2002  DATA  WHERE  IS  TRAFALGAR  SQUARE?, LOND 
ON  -rem  143 

2003  DATA  WHERE  IS  THE  WESTERN  WALL?,JERU 
SALEM  : rem   66 

2004  DATA  WHERE  IS  THE  COLISEUM?, ROME 

:rem  215 

2005  DATA  WHERE  IS  RED  SQUARE?, MOSCOW 

:rem  231 

2006  DATA  WHERE  IS  THE  TAJ  MAHAL?, AGRA 

; rem  162 

2007  DATA  WHAT  IS  THE  CAPITAL  OF  AFGHANIS 
TAN?, KABUL  : rem  37 

2008  DATA  THE  PARTHENON  IS  IN  THIS  CITY, A 
THENS  : rem  7 

2009  DATA  CITY  LEASED  BY  ENGLAND  FROM  CHI 
NA,HONG  KONG  : rem  126 

2010  DATA  WHERE  IS  THE  LINCOLN  MEMORIAL?, 
WASHINGTON  : rem  167 

2011  DATA  THIS  CITY  IS  FAMOUS  FOR  ITS  CAN 
ALS, VENICE  :rem  37 

3000  REM  NEWSMAKERS  : rem  167 

3001  DATA  PRESIDENT  OF  FRANCE, MITTERAND 

:rem  164 

3002  DATA  FORMER  SECRETARY  OF  STATE  UNDER 

REAGAN, HAIG  : rem  227 

3003  DATA  SOVIET  FOREIGN  MINISTER,GROMYKO 

: rem  131 

3004  DATA  GERMAN  CHANCELLOR, KOHL  : rem  208 

3005  DATA  SECRETARY  OF  TREASURY, REGAN 

I  rem  65 

3006  DATA  CHAIRMAN  OF  SOVIET  COMMUNIST  PA 
RTY.CHERNENKO  srem  173 

3007  DATA  CANADIAN  PRIME  MINISTER, TRUDEAU 

: rem  65 

3008  DATA  JAPANESE  PRIME  MINISTER, NAKASON 
E  : rem  144 

3009  DATA  SECRETARY  OF  STATE, SHULTZ 

: rem  196 

3010  DATA  MAYOR  OF  NEW  YORK, KOCH  : rem  123 

3011  DATA  BRITISH  PRIME  MINISTER, THATCHER 

! rem  91 

4000  REM  COMPUTERS  : rem  106 

4001  DATA  THE  BRAIN  OF  THE  COMPUTER  IS  CA 
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LLED, CENTRAL  PROCESSING  UNIT! rem  196 

4002  DATA  THE  FASTEST  WAY  TO  PROCESS  DATA 
, MACHINE  LANGUAGE  : rem  13 

4003  DATA  A  SIMPLE  COMPUTER  LANGUAGE, BASI 
C  : rem  45 

4004  DATA  USES  REVERSE  POLISH  NOTATION, FO 
RTH  -rem  40 

4005  DATA  8  BITS  ON  THE  6502 , BYTE; rem  248 

4006  DATA  A  16-BIT  MICROPROCESSOR, 68000 

:rem  252 

4007  DATA  TRANSFER  DATA  FROM  MEMORY  TO  CP 
U,BUS  ;rem  18 

4008  DATA  DATA  ARE  PUSHED  AND  PULLED  HERE 
, STACK  :rem  0 

4009  DATA  USED  FOR  INDEXING, X  REGISTER 

; rem  62 

4010  DATA  FASTEST  COMPUTATIONS  TAKE  PLACE 

HERE, PAGE  ZERO  : rem  214 

4011  DATA  A  NUMBERING  SYSTEM, HEXADECIMAL 

: rem  238 

5000  DATA  HISTORICAL  FIGURES, WORLD  CITIES 

, NEWSMAKERS, COMPUTERS        ; rem  117 

Program  3:  The  Tester,  TI-99/4A  Version 


100 

REM   EXTENDED  BASIC  NOT  REQUIRE 

D 

DIM  QA*(44)  , AN*  t44) 

i  10 

112 

CALL  CLEAR 

114 

FOR  1=1  TO  44 

120 

READ  QA«  < I)  , AN«(I » 

122 

NEXT  1 

123 

SUBJ=4 

124 

REM   SET  SUBJ  TO  «  OF  CATEGORIE 

S  OF  QUESTIONS 

125 

FOR  J=l  TO  SUBJ 

126 

Q  CJ}  =  10 

128 

READ  TL»(J> 

129 

NEXT  J 

200 

CALL  CLEAR 

202 

PRINT  "PLEASE  CHOOSE  ONE  SUBJEC 

~l~  >  II  >  ■ 

210 

FOR  1=1  TO  4 

212 

PRINT  I;")   ";TL«(I) 

214 

NEXT  I 

220 

PRINT 

222 

PRINT  "YOUR  CHOICE"; 

224 

INPUT  N 

226 

IF   (N< 1 >+<N>4)THEN  224 

230 

PRINT  : : : : 

232 

INPUT  "HOW  MANY  QUESTIONS  ?"iNl 

234 

IF  N1=0  THEN  232 

300 

TL  =  N1 

302 

SC  =  0 

304 

FOR  CT=1  TO  TL 

306 

CALL  CLEAR 

308 

PRINT  TL«CN};"  TEST" 

310 

RANDOMIZE 

312 

ANS=INT(RND«Q(N) )+<N«ll)-10 

314 

PRINT  5 : 

316 

PRINT  QA4(ANS) 

320 

FOR  1=0  TO  3 

322 

GOSUB  800 

324 

J=0 

330 

IF  (I=J)+(T (I»<>T(J) )THEN  335 

332 

GOSUB  800 

333 

J=0 

334 

GOTO  330 

335 

J  =  J  +  1 

337 

IF  J<=3  THEN  330 

340 

NEXT  1 

341 
342 
344 
346 
348 
349 
350 
352 
354 
356 
360 
370 
372 
380 
382 
390 
395 
400 
402 
404 
406 
408 
410 
430 
432 
434 
440 
442 
450 
460 
500 
502 
510 
512 
514 
520 


530 
532 

534 

550 

560 

562 

800 

B01 

Q02 

810 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 


RANDOMIZE 

J=1+INT (RND*5> 

A  =  0 

PRINT  s : 

FOR  1=1  TO  5 

PRINT  I ;  ">   "5 

IR  I=J  THEN  360 

PRINT  AN«(T(A)) 

A  =  A+1 

GOTO  370 

PRINT  AN«(ANS) 

NEXT  I 

PRINT 

PRINT 

INPUT  "ENTER  YOUR  ANSWER: 

IF  (NKl  )  +  (Nl>5)THEN  380 

IF  NIOJ  THEN  430 

SC=SC+1 

PRINT 

PRINT  TAB<9) ; "GOOD  !" 

FOR  1=1  TO  500 

NEXT  I 

GOTO  460 

PRINT 

"SORRY,  THE  ANSWER 

AN« (ANS) 


:  Nl 


IS: 


<ENTER>  TO  CONTINUE' 


'TOTAL  QUESTIONS  " j TL 
'CORRECT  ANSWERS  " ; SC 
■YOUR  SCORE  IS  ON  THE  ";T 
■  TEST  IS"; INT < <SC/TL> «10 

■WANT  ANOTHER  TEST  (Y/N)? 


■N")THEN  530 


PRINT 

PRINT 

PRINT 

PRINT  "HIT 

INPUT  Z» 

NEXT  CT 

CALL  CLEAR 

PRINT  TL«{N) 

PRINT  ; ; : : 

PRINT 

PRINT 

PRINT 

L»<N) ; 

0-«--  5>  ; 

PRINT 

INPUT 

":  2» 

IF  <  Z  ♦  <>  "  Y  "  )  »  <  Z  «  <  >  ■ 

IF  Z«="Y"  THEN  200 

CALL  CLEAR 

STOP 

RANDOMIZE 

T<I)=INT<RND«Q(N) ) +CN«11 )-10 

IF  T«I)=ANS  THEN  800 

RETURN 

REM   HISTORICAL  FIGURES 

DATA  THE  FIRST  PRES I  DENT , GEORG 

E  WASHINGTON 

DATA  FIRST  CHIEF  JUSTICE, JOHN 

JAY 

DATA  INVENTED  THE  COTTON  GIN,E 

LI  WHITNEY 

DATA  PRESIDENT  OF  CONFEDERACY, 

JEFFERSON  DAVIS 

DATA  WHO  DEBATED  LINCOLN? , STEP 

HEN  DOUGLAS 

DATA  FAMOUS  ABOLIT I  ON  I  ST , FREDE 

RICK  DOUGLASS 

DATA  BRITISH  NAV IGATOR, FRANCI S 
DRAKE 

DATA  THE  THIRD  PRESI DENT , THOMA 

S  JEFFERSON 

DATA  HE  PRESIDED  OVER  THE  NEW 

DEAL,F.  D.  ROOSEVELT 

DATA  WHO  WAS  ASSASSINATED  IN  D 

ALLAS?,JOHN  F.   KENNEDY 


1011 

2000 
2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

201  1 

3000 
3001 

3002 

3003 

3004 
3005 

3006 

3007 

3008 

3009 
3010 
3011 

4000 
4001 

4002 

4003 

4004 

4005 
4006 

4007 

4009 

4009 

4010 

401  1 

5000 


DATA  RAILROAD  MAGNATE , CORNELIU 

S  VANDERBILT 

REM   WORLD  CITIES 

DATA  WHAT  IS  THE  CAPITAL  OF  JA 

PAN?, TOKYO 

DATA  WHERE  IS  TRAFALGAR  SQUARE 

?, LONDON 

DATA  WHERE  IS  THE  WESTERN  WALL 

?, JERUSALEM 

DATA  WHERE  IS  THE  COLISEUM?, RO 

ME 

DATA  WHERE  IS  THE  RED  SQUARE?, 

MOSCOW 

IS  THE  TAJ  MAHAL?, A 


DATA  WHERE 

GRA 

DATA  WHERE  IS  THE  CAPITAL  OF  A 

FGHANISTAN?. KABUL 

DATA  THE  PARTHENON  IS  IN  THIS 

CITY, ATHENS 

DATA  CITY  LEASED  BY  ENGLAND  FR 

OM  CHINA, HONG  KONG 

DATA  WHERE  IS  THE  LINCOLN  MEMO 

RIAL?, WASHINGTON 

DATA  THIS  CITY  IS  FAMOUS  FOR  I 

TS  CANALS, VENICE 

REM   NEWSMAKERS 

DATA  PRESIDENT  OF  FRANCE, MITTE 

RAND 

DATA  FORMER  SECRETARY  OF  STATE 

UNDER  REAGAN, HAIG 
DATA  SOVIET  FOREIGN  MINISTER, B 
ROMYKO 

DATA  GERMAN  CHANCELLOR , KOHL 
DATA  SECRETARY  OF  TREASURY, REG 
AN 

DATA  CHAIRMAN  OF  SOVIET  COMMUN 
1ST  PARTY, CHERNENKO 
DATA  CANADIAN  PRIME  MINISTER, T 
RUDEAU 

DATA  JAPANESE  PRIME  MINISTER, N 
AKASONE 

DATA  SECRETARY  OF  STATE, SHULTZ 
DATA  MAYOR  OF  NEW  YORK, KOCH 
DATA  BRITISH  PRIME  MINISTER, TH 
ATCHER 

REM   COMPUTERS 
DATA  THE  BRAIN  OF  THE  COMPUTER 

IS  CALLED, CENTRAL  PROCESSING 
UNIT 

DATA  THE  FASTEST  WAY  TO  PROCES 
S  DATA, MACHINE  LANGUAGE 
DATA  A  SIMPLE  COMPUTER  LANGUAS 
E, BASIC 

DATA  USES  REVERSE  POLISH  NOTAT 
ION, FORTH 

DATA  8  BITS  ON  THE  6502, BYTE 
DATA  A  16-BIT  MI CROPROCESSOR, 6 
8000 
DATA  TRANSFER  DATA  FROM  MEMORY 

TO  CPU, BUS 
DATA  DATA  ARE  PUSHED  AND  PULLE 
D  HERE, STACK 

DATA  USED  FOR  INDEXING, X  REGIS 
TER 
DATA  FASTEST  COMPUTATIONS  TAKE 

PLACE  HERE, PAGE  ZERO 
DATA  A  NUMBERING  SYSTEM, HEXADE 
CIMAL 

DATA  HISTORICAL  FIGURES , WORLD 
CITIES, NEWSMAKERS, COMPUTERS  © 
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A  Beginner's  Guide 
To  Typing  In  Programs 


What  is  A  Program? 

A  computer  cannot  perform  any  task  by  itself. 
Like  a  car  without  gas,  a  computer  has  potential, 
but  without  a  program,  it  isn't  going  anywhere. 
Most  of  the  programs  published  in  COMPUTE!  are 
written  in  a  computer  language  called  BASIC. 
BASIC  is  easy  to  learn  and  is  built  into  most  com- 
puters (on  some  computers,  you  have  to  purchase 
an  optional  BASIC  cartridge). 

BASIC  Programs 

Each  month,  COMPUTE!  publishes  programs  for 
many  machines.  To  start  out,  type  in  only  pro- 
grams written  for  your  machine,  e.g.,  "TI  Version" 
if  you  have  a  TI-99/4.  Later,  when  you  gain  ex- 
perience with  your  computer's  BASIC,  you  can 
try  typing  in  and  converting  certain  programs 
from  one  computer  to  yours. 

Computers  can  be  picky.  Unlike  the  English 
language,  which  is  full  of  ambiguities,  BASIC 
usually  has  only  one  "right  way"  of  stating  some- 
thing. Every  letter,  character,  or  number  is  signif- 
icant. A  common  mistake  is  substituting  a  letter 
such  as  O  for  the  numeral  0,  a  lowercase  1  for  the 
numeral  1,  or  an  uppercase  B  for  the  numeral  8. 
Also,  you  must  enter  all  punctuation  such  as  col- 
ons and  commas  just  as  they  appear  in  the 
magazine.  Spacing  can  be  important.  To  be  safe, 
type  in  the  listings  exactly  as  they  appear. 

Braces  And  Special  Characters 

The  exception  to  this  typing  rule  is  when  you  see 
the  braces,  such  as  {DOWN}.  Anything  within  a 
set  of  braces  is  a  special  character  or  characters 
that  cannot  easily  be  listed  in  a  printer.  When  you 
come  across  such  a  special  statement,  refer  to  the 
appropriate  key  for  your  computer.  For  example, 
if  you  have  an  Atari,  refer  to  the  "Atari"  section 
in  "How  To  Type  COMPUTEI's  Programs." 

About  DATA  Statements 

Some  programs  contain  a  section  or  sections  of 
DATA  statements.  These  lines  provide  informa- 
tion needed  by  the  program.  Some  DATA  state- 
ments contain  actual  programs  (called  machine 
language);  others  contain  graphics  codes.  These 
lines  are  especially  sensitive  to  errors. 

If  a  single  number  in  any  one  DATA  statement 
is  mistyped,  your  machine  could  "lock  up,"  or 
"crash."  The  keyboard,  break  key,  and  RESET  (or 
STOP)  keys  may  all  seem  "dead,"  and  the  screen 
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may  go  blank.  Don't  panic-  no  damage  is  done. 
To  regain  control,  you  have  to  turn  off  your  com- 
puter, then  turn  it  back  on.  This  will  erase  what- 
ever program  was  in  memory,  so  always  SAVE  a 
copy  of  your  program  before  you  RUN  it.  If  your 
computer  crashes,  you  can  LOAD  the  program 
and  look  for  your  mistake. 

Sometimes  a  mistyped  DATA  statement  will 
cause  an  error  message  when  the  program  is  RUN. 
The  error  message  may  refer  to  the  program  line 
that  READS  the  data.  The  error  is  still  iu  the  DATA 
statements,  though. 

Get  To  Know  Your  Machine 

You  should  familiarize  yourself  with  your  com- 
puter before  attempting  to  type  in  a  program. 
Learn  the  statements  you  use  to  store  and  retrieve 
programs  from  tape  or  disk.  You'll  want  to  save  a 
copy  of  your  program,  so  that  you  won't  have  to 
type  it  in  every  time  you  want  to  use  it.  Learn  to 
use  your  machine's  editing  functions.  How  do 
you  change  a  line  if  you  made  a  mistake?  You  can 
always  retype  the  line,  but  you  at  least  need  to 
know  how  to  backspace.  Do  you  know  how  to 
enter  inverse  video,  lowercase,  and  control  char- 
acters? It's  all  explained  in  your  computer's 
manuals. 

A  Quick  Review 

1 .  Type  in  the  program  a  line  at  a  time,  in  order. 
Press  RETURN  or  ENTER  at  the  end  of  each  line. 
Use  backspace  or  the  back  arrow  to  correct 
mistakes. 

2.  Check  the  line  you've  typed  against  the  line  in 
the  magazine.  You  can  check  the  entire  program 
again  if  you  get  an  error  when  you  RUN  the 
program. 

3.  Make  sure  you've  entered  statements  in  braces 
as  the  appropriate  control  key  (see  "How  To 
Type  COMPUTEI's  Programs"  elsewhere  in  the 
magazine). 


We  regret  that  we  are  m  longer  able  to  respond  to 
individual  inquiries  about  programs,  products,  or 
scn>ices  appearing  in  COMPUTE!  due  to  increasing 
publication  activity.  On  those  infrequent  occasions 
-when  a  published  program  contains  a  typo,  the  correc- 
tion will  appear  on  the  CAPUTE!  page,  usually  within 
eight  weeks.  If  you  have  specific  cjuestions  about  items 
or  programs  which  you've  seen  in  COMPUTE!,  please 
send  them  to  Readers'  Feedback,  P.O.  Box  5406, 
Greensboro,  NC  27403.  © 


How  To  Type  COMPUTES's  Programs 


Many  of  the  programs  which  are  listed  in  COMPUTE!  contain 
special  control  characters  (cursor  control,  color  keys,  inverse 
video,  etc.)-  To  make  it  easy  to  tell  exactly  what  to  type  when 
entering  one  of  these  programs  into  your  computer,  we  have 
established  the  following  listing  conventions.  There  is  a 
separate  key  for  each  computer.  Refer  to  the  appropriate 
tables  when  you  come  across  an  unusual  symbol  in  a  program 
listing.  If  you  are  unsure  how  to  actually  enter  a  control 
character,  consult  your  computer's  manuals. 

Atari  400/800 

Characters  in  inverse  video  wilt  appear  like:  mgaEiiiiwMncsacE 
Enter  these  characters  with  the  Atari  logo  key,  (A). 

When    you    see  Type  See 


can  tell  the  difference  between  direct  and  programmed  cursor 
control  is  the  quote  mode. 

Once  you  press  the  quote  (the  double  quote,  SHIFT-2), 
you  are  in  the  quote  mode.  If  you  type  something  and  then 
try  to  change  it  by  moving  the  cursor  left,  you'll  only  get  a 
bunch  of  reverse-video  lines.  These  are  the  symbols  for 
cursor  left.  The  only  editing  key  that  isn't  programmable  is 
the  DEL  key;  you  can  still  use  DEL  to  back  up  and  edit  the 
line.  Once  you  type  another  quote,  you  are  out  of  quote  mode. 

You  also  go  into  quote  mode  when  you  INSerT  spaces 
into  a  line.  In  any  case,  the  easiest  way  to  get  out  of  quote 
mode  is  to  just  press  RETURN.  You'll  then  be  out  of  quote 
mode  and  you  can  cursor  up  to  the  mistyped  line  and  fix  it. 

Use  the  following  tables  when  entering  special  characters: 


{CLEflRJ 

ESC 

SHIFT   < 

n 

Clear   Screen 

{UPJ 

ESC 

CTRL    - 

♦ 

Cur»or   Up 

{DCWN} 

esc 

CTRL    - 

4. 

Curntir   Dtmn 

<LEFT} 

ESC 

CTRL    + 

+ 

Cur nor   Left 

tRIBHT> 

ESC 

CTRL    * 

-» 

Cur  nor   Right 

CBftCK  SJ 

ESC 

DELETE 

^ 

Backspace 

tDELETE> 

ESC 

CTRL   DELETE 

U 

Delete  character 

< INSERT) 

ESC 

CTRL    INSERT 

U 

ineert   character 

{DEL  LINEJ 

ESC 

SHIFT    DELETE 

□ 

Delete   line 

ClhtS    LINE) 

ESC 

SHIFT    INSERT 

□ 

Insert    line 

CTflBJ 

ESC 

TAB 

* 

TAB   key 

tCLR   TAB> 

ESC 

CTRL    TAB 

a 

Clear   tab 

CBET    TflBJ 

ESC 

SHIFT    TAB 

□ 

Set    tab    stop 

tBOJ-J 

ESC 

CTRL    Z 

m 

Ring    buzier 

tEBC> 

ESC 

ESC 

« 

ESCape   key 

Graphics  characters,  such  as  CTRL-T,  the  ball  character  •  will 
appear  as  the  "normal"  letter  enclosed  in  braces,  e.g.  (T). 

A  series  of  identical  control  characters,  such  as  10  spaces, 
three  cursor-lefts,  or  20  CTRL-R's,  will  appear  as  (10 
SPACES),  OLEFTl,  l20Rl,etc.  If  the  character  in  braces  is 
in  inverse  video,  that  character  or  characters  should  be  en- 
tered with  the  Atari  logo  key-  For  example,  Iw  1  means  to 
enter  a  reverse-field  heart  with  CTRL-comma,  i  5(1)1)  means  to 
enter  five  inverse-video  CTRL-U's. 

Commodore  PET/CBM/V!C/64 

Generally,  any  PET/CBM/ VlC/64  program  listings  will  contain 
words  within  braces  which  spell  out  any  special  characters: 
(  DOWN  )  would  mean  to  press  the  cursor  down  key.  1 5 
SPACES  )  would  mean  to  press  the  space  bar  five  times. 

To  indicate  that  a  key  should  be  shifted  (hold  down  the 
SHIFT  key  while  pressing  the  other  key),  the  key  would  be 
underlined  in  our  listings.  For  example,  S  would  mean  to 
type  the  S  key  while  holding  the  shift  key.  If  you  find  an 
underlined  key  enclosed  in  braces  (e.g.,  {10  N)),  you  should 
type  the  key  as  many  times  as  indicated  (in  our  example, 
you  would  enter  ten  shifted  N's).  Some  graphics  characters 
are  inaccessible  from  the  keyboard  on  CBM  Business  models 
(32N,  8032). 

For  the  VIC  and  64,  if  a  key  is  enclosed  in  special  brackets, 
f;  •>{.  you  should  hold  down  the  Commodore  key  while  pressing 
the  key  inside  the  special  brackets.  (The  Commodore  key  is 
the  key  in  the  lower  left  corner  of  the  keyboard.)  Again,  if 
the  key  is  preceded  by  a  number,  you  should  press  the  key 
as  many  times  as  indicated. 

Rarely,  you'll  see  in  a  Commodore  64  program  a  solitary 
letter  of  the  alphabet  enclosed  in  braces.  These  characters 
can  be  entered  by  holding  down  the  CTRL  key  while  typing 
the  letter  in  the  braces.  For  example,  ( A }  would  indicate  that 
you  should  press  CTRL-A. 

About  the  quote  mode:  you  know  that  you  can  move  the 
cursor  around  the  screen  with  the  CRSR  keys.  Sometimes  a 
programmer  will  want  to  move  the  cursor  under  program 
control.  That's  why  you  see  all  the  {LEFTJ's,  f  HOME}'s, 
and  IBLUl's  in  our  programs.  The  only  way  the  computer 
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All  Commodore  Machines 

CIc.TrScreen    [CLRj 
Home  Cursor  [  HOME} 
Cursor  Up       (UP) 
Cursor  Down  (  DOWN) 
Cursor  Right   (RIGHT) 


Cursor  Left  (LEFT) 

Insert  Character     (INST) 
Delete Chariicler   (dEL) 
JReverse  Field  On  (hvS) 
Reverse  Field  Off  (OFF) 


Apple  II  /Apple  II  Plus 

All  programs  are  in  Applesoft  BASIC,  unless  otherwise 
stated.  Control  characters  are  printed  as  the  "normal"  char- 
acter enclosed  in  braces,  such  as  I D 1  for  CTRL-D.  Hold 
down  CTRL  while  pressing  the  control  key.  You  will  not  see 
the  special  character  on  the  screen. 

Texas  Instruments  99/4 

The  only  special  characters  used  are  in  PRINT  statements  to 
indicate  where  tivo  or  more  spaces  should  be  left  between 
words.  For  example,  ENERGY  (10  SPACES]  MANAGE- 
MENT means  that  ten  spaces  should  be  left  between  the 
words  ENERGY  and  MANAGEMENT.  Do  not  type  in  the 
braces  or  the  words  10  SPACES.  Enter  all  programs  with  the 
ALPHA  LOCK  on  (in  the  down  position).  Release  the  ALPHA 
LOCK  to  enter  lowercase  text. 
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The  Automatic  Proofreader 

For  \/1C  64  And  Atari 


Charles  Bronnon,  Program  Editor 

At  last  there's  a  way  for  your  computer  to  help  you  check 
your  typing.  "The  AutoiniUic  Proofreader"  zoiU  makeentering 
programs  faster ,  easier,  and  more  accurate. 


The  strong  point  of  computers  is  that  they  excel  at 
tedious,  exacting  tasks.  So  why  not  get  your  computer 
to  check  your  typing  for  you? 

With  "The  Automatic  Proofreader"  nestled  in 
your  VIC-20,  Commodore  64,  or  Atari  computer,  every 
line  you  type  in  will  be  verified.  It  displays  a  special 
code,  called  a  citecksum,  at  the  top  of  the  screen.  The 
checksum,  either  a  number  (VIC/64)  or  a  pair  of  letters 
(Atari),  corresponds  to  the  line  you've  just  typed.  It 
represents  every  character  in  the  line  summed  together. 
A  matching  code  in  the  program  listing  lets  you  com- 
pare it  to  the  checksum  which  the  Proofreader  displays. 
A  glance  is  all  it  takes  to  confirm  that  you've  typed  the 
line  correctly. 

Entering  The  Automatic  Proofreader 

Commodore  (VIC/64)  owners  should  t\'pe  in  Program 
1.  Program  2  is  for  Atari  users.  Since  the  Proofreader  is 
a  machine  language  program,  be  especially  diligent. 
Watch  out  for  typing  extra  commas,  or  a  letter  O  for  a 
zero,  and  check  every  number  carefully.  If  you  make  a 
mistake  when  typing  in  the  DATA  statements,  you'll 
get  the  message  "Error  in  DATA  statements"  when  you 
RUN  the  program.  Check  your  typing  and  try  again. 

When  you've  typed  in  The  Automatic  Proofreader, 
SAVE  it  to  tape  or  disk  at  least  twice  before  running  it  for 
the  first  time.  If  you  mistype  the  Proofreader,  it  may 
cause  a  system  crash  when  you  first  run  it.  By  SAVEing 
a  copy  beforehand,  you  can  reLOAD  it  and  hunt  for 
your  error.  Also,  you'll  want  a  backup  copy  of  the 
Proofreader  because  you'll  use  it  again  and  again — 
every  time  you  enter  a  program  from  COMPUTE!. 

When  you  RUN  the  Proofreader,  the  program  will 
be  POKEd  safely  into  memory,  then  it  will  activate 
itself.  If  you  ever  need  to  reactivate  it  (RUN/STOP — RE- 
STORE or  SYSTEM  RESET  will  disable  it),  just  enter 
the  command  SYS  886  (VIC/64)  or  PRINT  USR(1536) 
for  the  Atari. 

Using  The  Proofreader 

Now,  let's  see  how  it  works.  LIST  the  Proofreader 
program,  move  the  cursor  up  to  one  of  the  lines,  and 
press  RETURN.  If  you've  entered  the  Proofreader 
correctly,  a  checksum  will  appear  in  the  top-left  comer 
of  your  screen. 

Try  making  a  change  in  the  line  and  hit  RETURN. 
Notice  that  the  checksum  has  changed.  All  VIC  and  64 
listings  in  COMPUTE!  now  have  a  number  appended  to 
the  end  of  each  line,  for  example,  ;rem  123.  Don't 
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enter  this  statement.  It  is  just  for  your  information.  The 
rem  is  used  to  make  the  number  harmless  if  someone 
does  type  it  in.  It  will,  however,  use  up  memory  if  you 
enter  it,  and  it  will  cause  the  checksum  displayed  at 
the  top  of  the  screen  to  be  different,  even  if  you  entered 
the  rest  of  the  line  correctly. 

The  Atari  checksum  is  found  immediately  to  the 
left  of  each  line  number.  This  makes  it  impossible  to 
type  in  the  checksum  accidentally,  since  a  program 
line  must  start  with  a  number. 

just  type  in  each  line  (without  the  printed 
checksum),  and  check  the  checksum  displayed  at  the 
top  of  the  screen  against  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  they  don't, 
there's  a  mistake.  You  can  correct  the  line  immediately, 
instead  of  waiting  to  find  the  error  when  you  RUN  the 
program. 

The  Proofreader  is  not  picky  with  spaces.  It  will 
not  notice  extra  spaces  or  missing  ones.  This  is  for 
your  convenience,  since  spacing  is  generally  not  im- 
portant. Occasionally  proper  spacing  is  important,  but 
the  article  describing  the  program  will  warn  you  to  be 
careful  in  these  cases. 

Nobody's  Perfect 

Although  the  Proofreader  is  an  important  aid,  there 
are  a  few  things  to  watch  out  for.  If  you  enter  a  line  by 
using  abbreviations  for  commands,  the  checksum  will 
not  match  up.  This  is  because  the  Proofreader  is  very 
literal:  It  looks  at  the  individual  letters  in  a  line,  not  at 
tokens  such  as  PRINT.  There  is  a  way  to  make  the 
Proofreader  check  such  a  line.  After  entering  the  line, 
LIST  it.  This  makes  the  computer  spell  out  the  abbre- 
viations. Then  move  the  cursor  up  to  the  line  and  press 
RETURN.  It  should  now  match  the  checksum.  You 
can  check  whole  groups  of  lines  this  way.  Atari  users 
should  beware  of  using  ?  as  an  abbreviation  for  PRINT — 
they're  not  the  same  thing  in  the  Proofreader's  eyes. 

The  checksum  is  a  sum  of  the  ASCII  values  of  the 
characters  in  a  line,  VIC  and  64  owners  may  wonder 
why  the  numbers  are  so  small,  never  exceeding  255. 
This  is  because  the  addition  is  done  only  in  eight  bits. 
A  result  over  255  will  roll  over  past  zero,  like  an  odome- 
ter past  99999,  On  the  Atari,  the  number  is  turned  into 
two  letters,  both  for  increased  convenience  and  to  make 
the  Proofreader  shorter.  For  the  curious,  the  letters 
correspond  to  the  values  of  the  left  and  right  nybbles 
added  to  33  (to  offset  them  into  the  alphabet).  This 
number  is  then  stored  directly  into  screen  memory. 

Due  to  the  nature  of  a  checksum,  the  Proofreader 
will  not  catchall  errors.  Since  1 +3  +  5  =  3-H  4-5,  the 
Proofreader  cannot  catch  errors  of  transposition.  In 
fact,  you  could  type  in  the  line  in  any  order,  and  the 
Proofreader  wouldn't  notice.  Anytime  the  Proofreader 


seems  to  act  strange,  keep  this  in  mind.  Since  the  ASCII 
values  of  the  number  18  (49  +  56)  and  63  (54  +  51)  both 
equal  105,  these  numbers  are  equal  according  to  the 
Proofreader.  There  really  is  no  simple  way  to  catch 
these  kinds  of  errors.  Fortunately,  the  Proofreader 
will  catch  the  majority  of  the  typing  mistakes  most 
people  make. 

If  you  want  the  Proofreader  out  of  your  way,  just 
press  SYSTEM  RESET  or  RUN/STOP— RESTORE.  If 
you  need  it  again,  enter  SYS  828  (VIC/64)  or  PRINT 
USR(1536)  (Atari).  You  must  disable  the  Proofreader 
before  doing  any  tape  operations  on  the  VIC  or  64. 

Hidden  Perils 

The  Proofreader's  home  in  the  VIC  and  64  is  not  a  very 
safe  haven.  Since  the  cassette  buffer  is  wiped  out  during 
tape  operations,  you  need  to  disable  the  Proofreader 
with  RUN/STOP— RESTORE  before  you  SAVE  your 
program.  This  applies  only  to  tape  use.  Disk  users  or 
Atari  owners  have  nothing  to  worry  about. 

Not  so  for  VIC  and  64  owners  with  tape  drives. 
What  if  you  type  in  a  program  in  several  sittings?  The 
next  day,  you  come  to  your  computer,  LOAD  and 
RUN  the  Proofreader,  then  try  to  LOAD  the  partially 
completed  program  so  you  can  add  to  it.  But  since  the 
Proofreader  is  trying  to  hide  in  the  cassette  buffer,  it  is 
wiped  out! 

What  you  need  is  a  way  to  LOAD  the  Proofreader 
after  you've  LOADed  the  partial  program.  The  problem 
is,  a  tape  load  to  the  buffer  destroys  what  it's  supposed 
to  load. 

After  you've  typed  in  and  RUN  the  Proofreader, 
enter  the  following  lines  in  direct  mode  (without  line 
numbers)  exactly  as  shown: 

A$=" PROOFREADER. T":    B$="ll0    SPACES}":    FOR 

X   =    1    TO    4:    A$=A$+B$:    NEXTX 

FOR    X    =    886    TO    1018:    A$=A5+CHR$ ( PEEK(X) ) : 
NEXTX 

OPEN    1, 1, 1,A$;CL0SE1 

After  you  enter  the  last  line,  you  will  be  asked  to 
press  record  and  play  on  your  cassette  recorder.  Put 
this  program  at  the  beginning  of  a  new  tape.  This  gives 
you  a  new  way  to  load  the  Proofreader.  Anytime  you 
want  to  bring  the  Proofreader  into  memory  without 
disturbing  anything  else,  put  the  cassette  in  the  tape 
drive,  rewind,  and  enter: 

OPENl:CLOSEl 

You  can  now  start  the  Proofreader  by  typing  SYS 
886.  To  test  this,  PRINT  PEEK(886)  should  return  the 
number  173.  If  it  does  not,  repeat  the  steps  above, 
making  sure  that  A$  ("PROOFREADER.T")  contains 
13  characters  and  that  B$  contains  10  spaces. 

You  can  now  reload  the  Proofreader  into  memory 
whenever  LOAD  or  SAVE  destroys  it,  restoring  your 
personal  typing  helper. 

Incidentally,  you  can  protect  the  cassette  buffer  on 
the  Commodore  64  with  POKE  178,251  This  POKE 
should  work  on  the  VIC,  but  it  has  caused  numerous 
problems,  probably  due  to  a  bug  in  the  VIC  operating 
system.  With  this  POKE,  the  64  will  not  wipe  out  the 
cassette  buffer  during  tape  LOADs  and  SAVEs. 


Program  1:  V1C/64  Proofreader 

100  PRINT" {CLR3 PLEASE  WAIT ...": FORI =886T0 

1018:READA:CK=CK+A:POKEI,A:NEXT 
110  IF  CK017539  THEN  PRINT"  {DOWN] YOU  MAD 
E  AN  ERROR": PRINT "IN  DATA  STATEMENTS. 
".:END 
120  SYS886:PRINT" fCLR) {2  DOWN] PROOFREADER 

ACTIVATED. " :NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 

Program  2:  Atari  Proofreader 

100  GRAPHICS  0 

110  FOR  1=1536  TO  1700:REflD  A:POKE  I 

, A: CK=CK+fi:NEXT  I 
120  IF  CK<>19072  THEN  ?  "Error  in  DA 

TA  BtatementB.   Check  typing";END 
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Missile  i^atli 


Garry  S.  Wick 


Educational  programs  are  usually  designed  to  re- 
ward correct  answers.  "Missile  Math"  does  this,  but 
also  gives  extra  points  for  speed.  Here's  an  enter- 
taining way  for  young  students  to  learn  their  math. 
Versions  for  the  Atari,  Commodore  VIC-20  and  6i, 
the  TI-99/iA,  Apple,  and  IBM  PC/PCjr. 


"Missile  Math"  starts  with  an  animated  introduc- 
tion screen,  then  a  joystick-controlled  menu  ap- 
pears on  the  screen.  You  have  a  choice  of  addi- 
tion and  subtraction  or  multiplication  and 
division  at  a  slow  or  fast  speed.  Using  the  joy- 
stick to  select  the  menu  item  eliminates  possible 
errors  from  incorrect  typing.  The  joystick  does 
not  give  any  unacceptable  entries  when  the  fire 
button  is  pressed  to  start  the  game. 

Different  Difficulty  Levels 

After  a  short  pause  for  the  initialization  of  the 
player/missile  figures,  the  player  sees  a  screen 
that  displays  ENTERING  LEVEL  1.  As  you  ad- 
vance from  one  level  to  the  next,  the  math  prob- 
lems become  increasingly  difficult. 

The  problem  appears  at  the  top  of  the 
screen.  On  the  bottom  there  are  five  possible  an- 
swers, together  with  a  missile  gun  which  you 
control  with  the  joystick.  The  object  is  to  position 
the  gun  over  the  correct  answer  and  launch  a 
missile  so  that  it  destroys  an  enemy  spaceship  as 
it  traverses  the  screen.  On  the  upper  left  corner 
of  the  screen  are  spades  representing  the  number 
of  remaining  guns.  You  begin  with  three  guns. 
The  score  is  displayed  in  the  upper  right  corner 
of  the  screen. 

A  special  kind  of  problem  appears  in  ran- 
dom locations.  For  example,  you  could  see 
3  +  4  =  ?  or  3  +  ?  =  7  or  ?  +  4  =  7.  Addition  and 
subtraction  are  combined.  It  is  similar  for  mul- 
tiplication and  division.  The  correct  answer  ran- 
domly appears  in  one  of  five  possible  locations, 
so  the  player  never  knows  in  advance  where  to 
position  the  gun.  The  values  of  the  incorrect 
answers  are  chosen  so  that  the  correct  answer  is 
not  obvious.  This  discourages  guessing. 

A  Feisty  UFO 

The  UFO  moves  across  the  screen  at  three  dif- 
ferent heights.  The  first  height  is  near  the  top  of 
the  screen,  and  on  the  two  successive  flights,  the 
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UFO  moves  closer  to  the  position  of  the  gun.  Of 
course,  if  the  player  destroys  the  UFO  on  the 
first  pass,  it  does  not  appear  at  the  lower  alti- 
tudes. Instead  a  new  problem  appears,  and  the 
UFO  starts  again  at  the  highest  position. 

It  is  most  difficult  to  destroy  the  UFO  at  the 
highest  altitude  because  there  is  less  time  to  cal- 
culate the  correct  answer  and  to  fire  the  missile 
at  the  right  time  to  hit  the  UFO.  Destroying  the 
UFO  at  the  middle  altitude  is  easier,  and  at  the 
lowest  altitude,  it  is  easiest.  Thus  the  player  gets 
25  points  for  a  correct  hit  on  the  first  pass,  10 
points  for  the  second  pass,  and  5  points  for  the 
third  pass.  When  the  gun  is  positioned  over  the 
correct  answer  and  scores  a  hit,  the  UFO  ex- 
plodes with  sound  effects,  disappears,  and  the 
number  of  points  earned  appears  in  its  place. 
Then  a  new  problem  appears  on  the  screen. 

If  you  score  a  direct  hit  on  the  UFO,  but 
have  the  gun  over  an  incorrect  answer,  the  UFO 
briefly  changes  colors,  makes  a  funny  sound  and 
continues  on  its  way.  You  must  then  try  again  on 
the  next  pass  of  the  UFO.  Three  consecutive 
misses  or  incorrect  answers  and  the  UFO  de- 
stroys the  gun  and  one  of  the  spades  disappears. 
Sound  effects  accompany  the  disappearance  of 
the  spade  and  the  correct  answer  blinks  on  and 
off  as  an  encouraging  message  flies  onto  the 
screen.  The  game  ends  when  all  three  guns  have 
been  destroyed. 

To  advance  to  the  next  level,  you  must  score 
50  points.  If  the  present  level  is  too  easy,  you 
can  enter  the  next  level  by  solving  as  few  as  two 
problems,  receiving  25  points  for  each  correct 
answer.  If  you  only  succeed  in  destroying  the 
UFO  on  its  third  pass  each  time,  then  you  will 
have  to  solve  ten  problems  before  moving  to  the 
next  level.  Thus  you  get  more  practice  on  prob- 
lems that  stretch  your  abilities.  You  can  quickly 
pass  by  the  problems  that  you  find  easy. 

Bonus  Points 

You  can  earn  the  50  points  necessary  to  advance 
to  higher  levels  with  any  combination  of  5,  10, 
or  25  points,  but  you  can  earn  bonus  points  for 
speed  and  accuracy.  If  the  average  score  for  the 
problems  solved  in  a  level  is  25,  the  player  re- 
ceives 50  bonus  points.  The  only  way  to  get  50 
bonus  points  is  to  score  correct  hits  on  the  first 
two  problems  in  a  level  during  the  first  pass  of 


the  UFO.  If  you  average  ten  points  or  better  per 
problem  (but  less  than  25),  you  will  earn  25 
bonus  points.  There  are  no  bonus  points  if  you 
average  less  than  ten  points  per  problem.  Bonus 
points  are  displayed  with  suitable  fanfare. 

There  are  a  few  features  of  Program  1  that 
require  special  mention.  The  joystick-controlled 
menu  appears  in  Program  1  at  lines  5000 
through  5230.  It  uses  screen  memory  locations  to 
identify  the  choices  available  so  that  it  is  impos- 
sible to  make  an  incorrect  entry  and  cause  an 
error. 

Player/Missile  Machine  Language 

The  UFO  is  Atari  Player  1  and  the  explosion 
character  is  Player  3.  In  order  to  rapidly  ex- 
change them  when  a  correct  hit  has  occurred,  it 
is  necessary  that  the  two  players  always  be  at  the 
same  vertical  position,  (Then  it  is  easy  to  POKE 
the  UFO  horizontally  off  the  screen  and  to  POKE 
the  explosion  at  the  former  position  of  the  UFO.) 

BASIC  was  too  slow  to  move  both  players 
vertically.  A  machine  language  program  to  move 
two  players  vertically  lower  on  the  screen  is  in 
lines  4000-4060.  The  parameters  for  the  current 
location  and  length  of  the  players  are  set  by  the 
subroutine  at  line  3500. 

It  is  a  little  tricky  and  not  at  all  obvious  how 
to  determine  when  the  gun  is  over  the  correct 
answer.  The  playfield  characters  (the  answers) 
and  the  players  use  different  coordinate  systems. 
It  is  necessary  to  establish  an  equation  that  maps 
one  coordinate  system  to  the  other.  The  appro- 
priate equations  are: 

X(P/M)  =  4*X{Playfield)  +  45 
Y(P/M)  =  4*Y(Playfield)  +  17 

where  X  and  Y  are  the  horizontal  and  vertical  co- 
ordinates respectively.  The  X  equation  is  used  in 
line  2510  to  determine  whether  the  gun  is  over 
the  correct  answer,  and  the  Y  equation  is  used  in 
line  3025  to  position  the  number  of  points 
earned  at  the  same  height  as  the  explosion  of  the 
UFO. 

Program  1 :  Atari  Mi$sile  Math 

Refer  to  the  "Automatic  Proofreader"  orticle  before  typing  this 
program  in. 

JB  10  DIM  M*(20)  ,MIS*  (  13>  ,BL*<40)  ,  A« 
(6> ,B« (6> ,C« (6) ,CH<5) , KEEP* (21) 

HL  15  GRAPHICS  2+16 

BD  20  BL«="  ":BL«(20}  =  "  "  :  BL*  (  2  )  =BLt 

DB  30  MIS*="MISSILE  MATH  " 

AN  60  FOR  1  =  1  TO  15 

BK  70  BL»  (20-1  ,  20>=MIS« 

A!  80  SOUND  0,75-1,8,1 

PA  90  POSITION  0,5:?  #6;BL«:NEXT  I 

HH  100  RESTORE  110:FOR  1  =  1  TO  35:REA 


D  A:SDUND  0,A,10,8:FOR  J=l 
45:NEXT  J:NEXT  I 


TO 
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Commodore  64 

(more  power  than  Apple  II  at  1/3  the  price) 

$18800* 

80  COLUMN 

•  TRACTION  FRICTION  PRINTER  $179.00  * 

•  14"  HI-RES  COLOR  MONITOR  $239.00* 

*   less  coupon  discounts 


COMPUTER  AND  SOFTWARE 

SALE 


*  COMMODORE  64  COMPUTER  SI88.OO1 
Vou  pay  only  Si88  00  when  you  order  the  power- 
ful 84K  COMMODORE  64  COMPUTER'  LESS  Ihe 
value  ol  ine  SPECIAL  SOFTWARE  COUPON  we 
pack  with  your  computer  that  allows  you  to 
SAVE  OVER  SSOOotI  software  sale  prices^  With 
only  SiOO  of  savings  applied,  your  net  corr^pyler 
cost  IS  jaSOO!' 

80  COLUMN 

4.  TRACTION  FRICTION  PRINTER  S179.00 

You  pay  only  SI  79.00  when  you  order  the  Comstor 
T  F  deluj^e  line  printer  that  prints  8' 3  k  H  full 
size,  single  sheef.  roll  or  fan  fold  paper,  labels 
etc.  40.  66,  80,  132  columns.  Impoct  dot  matrix,  bi- 
direclionol.  BO  CPS.  LESS  the  value  of  the  SPECIAL 
SOFTWARE  COUPON  we  pock  with  your  printer 
Ihol  ollows  yau  to  SAVE  OVER  5500  off  software 
sole  prices!!  Wilh  only  SIOO  of  saving  applied 
your  net  printer  cost  is  only  579.00. 

*14"  HI-RES  COLOR  MONITOR  $239,00 

Vou  pay  only  1239  00  when  you  order  this  i<l  COLOR 
MONITOR  wiln  sharper  and  clearer  resolution  tfian  any 
other  color  monitors  wc  have  tested'  LESS  the  value  of 
the  SPECIAL  DISCOUNT  COUPON  we  pack  with  your 
monitor  that  allows  you  lo  save  over  S500  OOoff  software 
sale  prices"  wiih  only  $100  00  ol  savings  applied  your 
net  color  monitor  cost  is  only  $139  00 

»12"  HIRES  AMBER  MONITOR  $119.00 

This  IS  a  1000  LINE  80  COLUMN,  HIGH  RESOLUTION 
IVIONITOR  with  crisp  clear  amber  ie»l  thai  is  easy  to  read. 
a  must  for  word  processing!  Includes  SPECIAL 
SOFTWARE  DISCOUNT  COUPON" 

80  COLUMN  BOARD  S99.00 

Now  you  program  60  COLUMNS  on  Ifie  Screen 
,ai  one  time'  Converts  your  Commodore  64  to  80 
COLUMNS  when  you  plug  m  the  80  COLUMN 
EXPANSION  BOARD"  PLUS— you  can  get  an  80 
COLUMN  BOARD  WORD  PROCESSOR  wiin  mail 
merge,  terminal  emulator,  ELECTRONIC 
SPREAD  SHEET,  List  S5900  SALE  S24.95  il  pur. 
chased  with  80  COLUMN  BOARD"  (Tape  or 
Diskl 

80  COLUMNS  IN  COLOR 
EXECUTIVE  WORD  PROCESSOR  $59.00 

This  EXECUTIVE  WORD  PROCESSOR  is  the 
finest  available  for  the  COMMODORE  64  com- 
puter' The  ULTIMATE  lor  PROFESSIONAL  Word- 
processing  application'  DISPLAYS  40  OR  80 
COLUfvlNS  IN  COLOR  or  Blac><  and  White!  Sim- 
ple to  operate,  powerful  tei!  editing  with  a  250 
WORD  DICTIONAflV,  complete  cursor  and  in- 
sert/delete key  controls  line  and  paragraph  inser- 
tion, automatic  deletion,  centering,  margin  sel- 
lings and  output  to  all  printers'  Includes  a 
powerlut  mail  merge  20,000  WORD  DIC- 
TIONARY .  List  $24  95  SALE  $19,95,  EXECUTIVE 
DATA    BASE   ■    List  $99.00      SALE  $59.C        sk) 


WE 

HAVE 

THE 

BEST 

SERVICE 


WE 

HAVE 

THE 

LOWEST 

PRICES 


SPECIAL  SOFTWARE  COUPON 


I  We  pack  a  SPECIAL  SOFTWARE  DISCOUNT  I 
IcOUPON     witfi     every     COMMODORE     64I 

COMPUTER  DISK  DRIVE-PRINTER-MONITOR  we  I 
I  sell!  Tfiis  coupon  allows  you  to  SAVE  OVER  $500 1 

OFF  SALE  PRICES!! 


(Examples) 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 


Nim>  Liil 
Enecultve  Woid 

Processor  S99  00 

Ejieculive  DauSase  $69  00 

JOOOOWora  Dicliona'y  JJl  95 

I  Electronic  Spreadsneei  JS9  95 

Accounlinq  Pack  S-IQ  00 
Toial  5  2 
I  Woro  Processoi 

Tape  t69  00 

Disk  1?9  95 
OTalTeitje 

Wore  I^rocessu' 


£59  00 
S39  00 
tt9  95 
149  OG 
S39  0Q 


149  00 
J59  00 


Coupon  I 

549  00 
S29  00 
S12  50 
$39  00 
$?9  00 


S34  00 
$39  00 


I  Toiai  Label  ;s 


rape 

J24  95 

SIBOO 

$1200 

D'SH 

$29  95 

$23  00 

$1500 

Programmers 

Helper  iDishi 

$59  00 

$39  9'; 

$29  95 

80 Column  Screen 

iDiSK) 

J59  95 

$39  95 

$29  95 

Crusn  CrumtJie  Cnomp 

iTape^Oiskj 

529  95 

$24  95 

$1995 

Piistoo  (Cartridge) 

$39  95 

$29  95 

$24  95 

Typing  Teacrier 

(Tape)  Dish) 

$29  95 

$24  95 

S15O0 

Sof ife  Designer  (  (Tap*/ 

$16  95 

51495 

$1000 

Oiiki 

Frreoall  Joy  stic^ 

$24  95 

$15  95 

$1000 

Ligfit  Pen 

139  95 

$16  95 

$1195 

Dust  Co«er 

$  8  95 

S  6  95 

$  J60 

<See  lOOcaupo 

r, ferns  r 

n  ourcsra'og'i 

Write  or  call  for 

Sample  SPECIAL  SOFTWARE  COUPON! 

EXECUTIVE  QUALITY 
PROFESSIONAL  BUSINESS  SOFTWARE 

The  Cadllla<:  ol  business  programs 
for  Commodore  64  Computers 


Item 

Inventory  t^anagemgnt 
Accounts  Receivable 
Accounts  Payable 
Payroll 
General  Ledger 


Lid 
$99  00 
$99  00 
$99  00 
$99,00 
$99  00 


■SALE 

$59  00 
$59  00 
$5900 
$59.00 
$59.00 


Coupon 
$4900 
$49.00 
$4900 
$4900 
$49  00 


/OMMODORE 

(the  new  learning  computer) 


16 


$99. 


00 


COM-64  POWER  FOR  VIC-20  $79.00 

NEW  VOICE  SYNTHESIZER  $59.00 
(Com-64  or  VIC-20) 


COMMODORE  16  COMPUTER  $99,00 

This  new  LEARNING  COMPUTER  has  48K  total  memory 
(32K  ROM  and  16K  RAM)  40  columns,  25  Imes,  128 
colors,  8  sound  levels,  upperto^er  case  Higti  resolution 
graphics,  66  typewriter  keys,  eilended  3  5  l\fllCROSOFT 
BASIC  witti  over  75  commands,  machine  language 
monitor,  12K  useable  RAM,  FANTISTIC  FOR 
PROGRAiyiHERS  AND  STUDENTS"! 


C0M.64  POWER  FOR  VIC-ZO    $79.00 

Just  plug  in  our  32K  RAM  MEMORY  EXPANDER 
ant)  you  get  as  much  usaote  programming  power 
as  the  Commodore-64  computer!!  Master  control 
switches  on  cover.  Gold  Edge  connectors,  live 
year  warranty  (FREE  S29.95,  CARTRIOGEGAME) 

NEW  VOICE  SYNTHESIZER  S59.00 

For  Com.64  or  VIC-20  computers.  Just  plug  it  in 
and  you  Gdn  program  words  and  sentences,  ad- 
just volume  and  pitch,  make  talking  adventure 
games,  sound  action  games  and  customized 
talkies!!  FOR  ONLY  S19,95  you  can  add  TEXT 
TO  SPEECH,  lust  type  a  word  and  hear  your 
computer  talk  — ADD  SOUND  TO  ■ZORK," 
SCOTT  ADAMS  AND  AARDVARK  ADVENTURE 
GAMES!  "(Diskor  tape! 

16K  RAM  CARTRIDGE  $49.00 

Increases  VIC  20  programming  power  4  limes 
Expands  total  memory  to  41 K  (41,000  bytes) 
Memory  block  switches  are  an  outside  cover 
CARDCO  Includes  FREE  S29.95  game!! 

BK  RAM  CARTRIDGE  $34,95 

Increases  VIC-20  programming  power  2  1r'2 
times.  Expands  total  memory  to  33K  (33,000 
bytes).  Includes  FREE  S16, 95  game. 


3  SLOT  SWITCHABLE  EXPANDER  $24.95 

Allows  you  to  add  3  cartridges  at  one  time- 
switch  select  10  turn  slots  on  or  oC  — PLUS  reset 
button  A  must  lor  your  VIC-20  computer' ' 

9  ■  GREEN  SCREEN  MONITOR  $69.00 

Excellent  quality  SANYO,  easy  10  read,  80  col- 
umns «  24  lines.  Green  Phosphorous  screen 
with  anti-glare,  metal  cabinet!  Saves  your  TV 
PLUS  S9.95  for  connecting  cable.  Com-64  or 
VIC-20 

12"  GREEN  OR  AMBER  MONITOR  $99.00 

Your  clioice  of  green  or  amber  screen  monitor  top 
quality.  SANYO.  80  columns  «  24  lines,  easy  to  ready, 
anti-glare,  faster  scanning'  PLUS  $9  95  lor  connecting 
cable  Com-64  or  VIC  20, 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


Add  S^O.OO  for  shipping,  hondling  and  insurance.  Illinois  residents 
pleose  add  6%  tox-  Add  S20.00  for  CANADA.  PUERTO  RICO,  HAWAII. 
ALASKA.  APO-FPO  orders.  Conodion  orders  must  be  in  U.S.  dollors, 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 

Enclose  Coshiers  Check.  Money  Order  or  Personol  Check,  Allow  14 
doys  for  delivery,  2  to  7  doys  for  phone  orders,  1  doy  express  mail! 
VISA  —  MASTER  CARD  —  C.O.D. 


CKlTCDpDI7CC    (WE  LOVE  Our  CUSTOMERS) 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312;382-5244  to  ord«r 


BIG  FOUR 

NEW  128K  —MEGA  BYTE  DUAL  DISK  DRIVE-80  COLUMN 

COMPUTER  SYSTEM  SALE! 

HOME  •  BUSINESS  •  WORD  PROCESSING 


LOOK  AT  ALL  YOU  GET  FOR  ONLY 


$895. 


LIST  PRICE 

•  B128  COMMODORE  128K  80  COLUMN  COMPUTER  $995  00 

•  8050  DUAL  DISK  DRIVE  {over  1  million  bytes)  1  795  00 

•  4023     100  GPS     80  COLUMN  BIDIRECTIONAL  PRINTER  499  00 

•  12'   HI  RESOLUTION  80  COLUMN  GREEN  OR  AMBER  MONITOR  249  00 

•  BOX  OF  10  LORAN  LIFETIME  GUARANTEED  DISKS  49  95 

•  1100  SHEETS  FANFOLD  PAPER  19.95 

•  ALL  CABLES  NEEDED  FOR  INTERFACING  102.05 

TOTAL  LIST  PRICE  $  3717.95 

Printer  replacement  options  (replace  the  4023  with  the  following  at  these  sale  prices) 


*  Olympia  Executive  Letter  Quality  Serial  Printer 

*  Comstar  Hi-Speecf  160  CPS  15^  ■  Serial-Business  Printer 

*  Telecornrtiunications  Deluxe  Modem  Package 


LrST 

$  599  00 
$779  00 
$  199.00 


SALE 
S  399.00 
S  499.00 
$  139,00 


Plus  You  Can  Order  These  Business  Programs  At  Sale  Prices 


Prot€SiiOnal  80  Column 

Word  Processor 
Professional  Data  Base 
AccOLints  Receivable 
Accounts  Payable 


LIST 

149  95 
149  95 
149  95 


SALE 

S99.0D 

99.00 
93.00 
99.00 


Payroll 
li5venlory 
General  Ledger 
Financial  Spread  Sheet 
Prof^rani  Generator 


LIST 

iU9  9b 
149  9'j 
149  9ti 
149  9b 
149  95 


SALE 
$99,00 
9900 
9900 
99.00 
99.00 


15  DAY  FREE  TRIAL  We  give  you  1 5  days  to  try  out  tHis  SUPER  SYSTEM  PACKAGE"  If  it  doesn't  meet  your  eirpec 
tattons,  |ust  send  it  back  to  us  prepaid  and  we  yvill  refund  your  purchase  price" 

90  DAY  IMMEDIATE  REPLACEMENT  WARRANTY  If  any  ofthe  SUPER  SYSTEM  PACKAGE  eqijipment  or  programs 
jail  due  to  faulty  workmanstiip  or  material  we  will  replace  it  iMMEDiATELY  at  no  charge!' 


[Add  $50.00  for  shipping  and  handlingf!  j 

$100.00  for  Canada.  Puerto  Rico,  Hawaii  orders.  ! 

[  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES, 
j  Enclose  Cashiers  Check,  Money  Order  or  Personal  Check.  Allow  ' 
I  14  days  for  delivery.  2  to  7  days  for  phone  orders,  1  day  express  I 
I  mailf  Canada  orders  must  be  in  U.S.  dollars.  We  accept  Visa  and  I 
I  MasterCard,  We  ship  C.O.D.  to  U.S.  addresses  only.  | 


BOX  5M,  BARAINOTON,  ILLINOIS  60010 
Phon*  312/3<2'6244  lo  order 


80  COLUMN  PRINTER  SALE— $149.00* 


COM-STAR  T/F 


Tractor 
Friction 
Printer 


only 


icit 


COMSTAR 


15  Day  Free  Trial -180  Day  Immediate  Replacement  Warranty 


•   Lowest  Priced,  Best  Quallly,  Tractor-Friction  Printers  in  the  U.S.A. 

•  Fast  80-120-160  Characters  Per  Second     •  40,  46,  66,80.  96, 132  Characters  Per  Line  Spacing 

•  Word  Processing    •  Print  Labels,  Letters.  Graphs  and  Tables     •  List  Your  Programs 

•  Print  Out  Data  from  Modem  Services     •  "The  Most  Important  Accessory  for  Your  Computer" 


•STX.80  COLUMN 
PRINTER-$149.00 

Prints  futl  80  columns.  Super  silent 
operation,  60  CPS,  prints  Hi-resolutlon 
graphics  and  bloci?  grapliics,  expanded 
character  set,  exceptionaliy  clear 
characters,  fantastic  print  quality,  uses 
inexpensive  thermai  paper!  Best  thermal 
printer  in  the  U.S.A.!  (Centronics  Parallel 
Interface). 

"DELUXE  COMSTAR  T/F 
80  CPS  PRINTER— $179.00 

The  COMSTAR  TIF  (Tractor  Friction) 
PRINTER  Is  exceptionally  versatile.  It 
prints  8'/i"  X  11"  standard  size  single 
sheet  stationary  or  continuous  feed  com- 
puter paper.  Bi-directional,  impact  dot 
matrix,  80  CPS,  224  characters.  (Cen- 
tronics Parallel  interlace). 

Premium  Quality— 120  CPS 
COMSTAR  T/F  SUPER-10X 

PRINTER— $289.00 

COMSTAR  T/F  (Tractor  Friction)  SUPER- 
10X  PRINTER  gives  you  all  the  features 
of  the  COMSTAR  T/F  PRINTER  plus  a 
10"  carriage,  120  CPS,  9  x  9  dot  matrix 
with  double  strike  capability  for  18  x  18 
dot  matrix  (near  letter  quality),  high 
resolution  bit  image  (120  x  144  dot 
matrix),  underlining,  back  spacing,  left 
and  right  margin  settings,  true  lower 
decenders  with  super  and  subscripts, 
prints    standard,    italic,    block    graphics 


and  special  characters,  plus  2K  of  user 
definable  characters!  The  COMSTAR  T/F 
SUPER-10X  PRINTER  was  Rated  No.  1  by 
"Popular  Science  Magazine."  It  gives  you 
print  quality  and  features  found  on 
printers  costing  twice  as  much!!  (Cen- 
tronics Parallel  interface)  (Belter  than  Ep- 
son FX  80). 

Premium  Quality— 120  CPS 

COMSTAR  T/F  SUPER-IS'A" 

PRINTER— $379.00 

COMSTAR  T/F  SUPER  15'A"  PRINTER 
has  ai!  the  features  of  the  COMSTAR  T/F 
SUPER-10X  PRINTER  plus  a  15'/i"  car- 
riage and  more  powerful  electronics 
components  to  handle  large  ledger 
business  forms!  (Better  than  Epson  FX 
100). 

Superior  Quality 

SUPER  HIGH  SPEED— 160  CPS 

COMSTAR  T/F  10" 

PRINTER-S399.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
(Tractor  Friction)  PRINTER  has  all  the 
features  of  the  COMSTAR  SUPER-10X 
PRINTER  plus  SUPER  HIGH  SPEED 
PRINTING— 160  CPS,  100%  duty  cycle, 
8K  buffer,  diverse  character  fonts, 
special  symbols  and  true  decenders,  ver- 
tical and  horizontal  tabs.  RED  HOT 
BUSINESS  PRINTER  at  an  unbelievable 
low  price!!  (Serial  or  Centronics  Parallel 
Interface) 


Superior  Quality 

SUPER  HIGH  SPEED-160  CPS 

COMSTAR  T/F  15'A" 

PRINTER— $529.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
15'A"  PRINTER  has  all  the  features  of  the 
SUPER  HIGH  SPEED  COMSTAR  T/F  10" 
PRINTER  plus  a  15'A"  carriage  and  more 
powerful  electronics  to  handle  larger 
ledger  business  forms!  Exclusive  bottom 
paper  feed!! 


PARALLEL  INTERFACES 
For  VIC-20  and  COM-64-  $69.00 
For    Apple  Computera—  $79.00 

NOTE:     Other     printer     interfaces     are 
available  at  computer  stores! 


Double 

Immediate  Replacement 

Warranty 

We  have  doubled  the  normal  90  day  war- 
ranty to  180  days.  Therefore  if  your 
printer  fails  within  "180  days"  from  the 
date  of  purchase  you  simply  send  your 
printer  to  us  via  United  Parcel  Service, 
prepaid.  We  will  IMMEDIATELY  send  you 
a  replacement  printer  at  no  charge, 
prepaid.  This  warranty,  once  again, 
proves  that  WE  LOVE  OUR 
CUSTOMERS! 


TO  OTHER  COUNTRIES  EXCEPT  CANADA. 


I  Enclose  Cashiers  Check,  Money  Order  or  Personal  Cfieck.  Allow  14  days 
!  (or  delivery,  2  to  7  days  for  phone  orders,  1  Oay  express  mail!  Canada 
I  orders  must  be  in  U.S.  dollars.  VISA  -  MASTER  CARD  ACCEPTED.  We 
I  ship  C.O.O. 

SUPER-10" 


ABCDEFQHIJKLMNOPQRSTUVMX YZ 


BOX  SSO,  BARRfNGTON,  ILLINOIS  60010 
Phont  312/M2S244  to  ordtr 

NOF»CaR8-riJVMXVZ 


O  Olympia 


EXECUTIVE  LETTER  QUALITY 
"DAISY  WHEEL  PRINTERS" 


Executive  Letter  Quality  Printer 


Executive  Letter  Quality  Printer/Typewriter 


World's  Finest  Computer  Printer 

List  Price  $699  SALE  $399 


Daisywheel  printer,  bidirectional  with  special  print 

enhancements. 

Print  speed  up  to  20  characters  per  second, 

10,  12,  and  15  characters  per  inch, 

256  character  pnnt  buffer. 

14.4"  forms  width. 

Print  line  width:  115,  138,  and  172  characters. 

Serial  RS-232-C  and  parallel  Centronics  interface 

ports  built-in. 

Built-in  bidirectional  forms  tractor. 

Operating  status  control  panel. 


World's  Finest 


'Combination" 

List  Price  $799 


Printer/Typewriter 
SALE  $489 


•  Superb  computer  printer  combined  with  world's  finest 
electronic  typewriter! 

•  Better  than  IBM  selectric  —  used  by  world's  largest 
corporations! 

•  Two  machines  in  one  —  just  a  flick  of  the  switch! 

•  Superb  letter  quality  correspondence  —  home,  office, 
word  processing! 

•  Extra  large  carriage  ^  allows  14-1/8"  paper  usage! 

•  Drop  in  cassette  ribbon  —  express  lift  off  correction  or 
eraser  up  to  46  characters! 

•  Precision  daisy  wheel  printing  —  many  type  styles! 

•  Pitch  selector  —  10,  12,  15  CPS,  Automatic  relocate  key! 

•  Automatic  margin  control  and  setting!  Key  in  buffer! 

•  Electronic  reliability,  built  in  diagnostic  test! 

•  Centronics  parallel  interface  built-in 


15  Day  Free  Trial  -  90  Day  tmmediate  Replacement  Warranty 


Add  Jl  7.50  /or  shipping,  handling  and  insurance.  Illinois  residents  please 
add  6%  tax.  Add  $35.00  tor  CANADA.  PUERTO  RICO.  HAWAII.  ALASKA, 
APA-FPO  orders.  Canadian  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPOflT  TO  OTHER  COUNTRIES. 

Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow  J  4  days 
delivery,  2  to  7  days  for  phone  orders,  1  day  express  mail! 

VISA  -  MASTERCARD  -  C.O.D. 


No  C.O.D.  to  Canada.  APO-FPO 


C0M64  —  VIC-20  INTERFACE 
APPLE  INTERFACE 


$59.00 
$79.00 


BOX  5S0,  BARRINGTON,  ILLINOIS  60010 
Phont  312/382-5244  lo  ordar 


PC  4  15 

AE  420 

CE  4  30 

60  435 

HH  44  0 

JQ  445 

OD  450 

IC  460 

AH  470 

ED  480 

QE  490 

NP  500 

EH  530 

IB  540 

PE110  DATA  81,81,81,60,60,60,60,60, 
60, 60, 60, 60, 81 ,81 , 81 , 60, 68, 72 
,81,81,81,81,81,81,81  BN410 

CP  1  1  1  DATA  0,81,81,81,81,60,60,60,6 
0,60, 60, 60 

DJ  120  FDR  1=0  TO  15 

J6  130  BL«  =  BL*  (2,  20-1  ):  SOUND  0,75-1, 

a,  I 

CD  140  POSITION  0,5:?  #6;BL*:NEXT  I: 

SOUND  0,0,0,0 
Dft  150  FOR  1  =  1  TO  250:NEXT  I 
NL  160  SOSUB  4000 
NN  170  GOSUB  5000 
N!  175  ?  CHR*(125):?  ;?  ;?  "TO  PLAYi 

":?  "POSITION  BUN  OVER  CORREC 

T  ANSWER":?  "AND  SHOOT  THE  UF 

0.  " 
60  180  ?  :?  :?  "BE  CAREFUL  NOT  TO  WA 

STE  SHOTS. " 
0L185  ?  :?  :?  :?  :?  "PLEASE  WAIT  A 

MOMENT " 

NM  200  BOSUB  5500 

CN210  LVL=1:SC  =  0:  NP  =  3:  HIT  =  0:  BUN  =  0:  X 

1  =  165 
MH  220  ?  GHR*  (  125)  :  POKE  752,1:P0SITI 

ON  12,  10: SETCOLDR  2,2,10:SETC 

OLOR  1,2,0:?  "ENTERING  LEVEL    DB  550 

"  ;  LVL 
CB  225  PB  =  0:SCL  =  0 
If  226  RESTORE  110:FOR  1  =  1  TO  35:REA   HC  560 

D  A:SOUND  0,A,10,8:FOR  J  =  l  TO   EC  565 
20:NEXT  J:NEXT  I  :  SOUND  0.0,0   FF  570 

JE  230  A=INT  (RND  (0>  »4+l  ) +4*  <LVL-1  )      FK  575 
1(1235  B=INT  (RND  (0>  «4«LVL+1  )  KI  580 

DE  24  0  IF  MENU=1  THEN  C  =  A  +  B:GOTD  255 
HE  250  C  =  AtB  PF  590 

flj  255  A*  =  STR$  (A)  :  B*  =  STR«  (B)  :  C*  =  STR*   FN  600 

<C) 
NC  260  RP=INT  <RND  (0)  »4) +1 
FQ  270  IF  RP=1  THEN  ANB  =  A  ;  A*  =  CHR«  f  63   FE  6  1  0 

)  GE  620 

6C  280  IF  RP  =  2  THEN  ANS  =  B :  B*  =  CHR*  ( 63   HK  630 

) 
BK  290  IF  RP  =  3  OR  RP  =  4  THEN  ANS  =  C:C«   BD  640 

=  CHR«  C63) 
6D  295  FOR  1  =  1  TO  500:NEXT  I:?  CHR«  t   FF  650 

125) : POSITION  1 3 , 5 : SETCOLOR  1 

,  0,  14:  SETCOLOR  2,0,2  ON  660 

EJ  300  IF  MENU=1  THEN  ?  A*;"  +  ";B«;   ID  670 

"  =  ";C«:GOTO  320 
flO310  ?  A*;"  X  ";B*;"  =  "  s  Ct  FK  680 

EJ  320  FOR  1  =  1  TO  NPiPOSITION  2*1,2: 

?  CHR*  <  123)  :  NEXT  I  IJ  690 

NC  340  POSITION  25,2:?  "SCORE  ";SC:P 

B=PB+1 
GC  345  IF  ANS>90  THEN  DEL=10:GOTO  36 

0  DE  7  00 

Dft  346  IF  ANS>20  THEN  DEL  =  5:BOTO  360   EN  7 1  0 
flF  350  DEL=INT  (  CANS/ 10)  +1  )  DH  7  1  5 

HK  360  DT=INT  <RND(0)  *5)  +1 
FD  370  FOR  1  =  1  TO  5  :  CH  C  I  >  =ANS+ (  I -DT  )   PI  720 

»DEL: POSITION  6*1,21:?  CH t I ) : 

NEXT  I 
OH  375  GOSUB  3500  H  740 

HG  380  POKE  53278,  1  :  SHT  =  0 
fiH  390  FOR  X0  =  200  TO  25  STEP  -DX:PDK   II  750 

E  53248, X0 
OC  400  ST  =  STICK  (0>:Xl  =  Xl+4«(  <ST  =  7)  +  ( 


Xl<210)):Xl=Xl-4*( (ST=1 1)+(X1 
>40)):POKE  53249, XI 
IF  STRIG<0)=0  AND  SHT=0  THEN 
GUN=1;P0KE  PMBASE+384+Y1 , 0 : Y 1 
=  102:  Xm  =  Xl+7:  POKE  53253!,XM1: 
SHT=1 

IF  GUN=1  THEN  GOSUB  2000 
IF  HIT=1  THEN  HIT=0:GOTO  440 
NEXT  X0IPOKE  53253, 250:SOUND 
0, 0, 0, 0:GUN=0 
GOTO  450 

IF  SCL>=50  THEN  LVL=LVL+ 1 : POK 
E  53249, 250:GOTO  220 
POKE  53249, 250: GOTO  230 
GOSUB  3700 

IF  Y0<100  THEN  GOTO  380 
FOR  X0=205  TO  30  STEP  -DX : POK 
E  53248, X0 

IF  PEEK (53260) <>2  THEN  NEXT  X 
0 

POKE  53248, 250: POKE  53249,250 
:POKE  53250, X0 
BOSUB  2800 

POSITION  2*NP,2;?  " * " 
FOR  1=1  TO  30:SOUND  0,250-4*1 
,10,8:NEXT  I : SOUND  0,0,0,0 
POSITION  2«NP,r:?  "    " : FOR  1= 
15  TO  0  STEP  -1:SDUND  0.100,0 
, I : NEXT  I 
NP=NP-1 
FOR  1=1  TO  10 
POSITION  6«rT,21:?  " 
{4  SPACES3 " 
K=INT  <RND  <0)  «15) 

FOR  J=40  TO  25  STEP  -1: SOUND 
0, J-K,  10,8: NEXT  J 
POSITION  6*DT,21:?  ANS 
K=INT <RND <0) « 15) : FOR  J=40  TO 
25  STEP  -1:S0UND  0,J-K,10,8jN 
EXT  J:NEXT  I  : SOUND  0,0,0,0 
BL*="   ":BL«C3B)="  ":BLtC2)=BLS 
KEEP*="KEEP  TRYING  " 
FOR  1=1  TO  23;BL* <38-I,3S)=KE 
EP« 

SOUND  0, 90-1 ,8, INT ( I/2)+3:P0S 
ITION  0,9:?  BL«:NEXT  I 
BL«="  ":BL«(38)="  ";BL«(2)=BL 
% 

KEEP*="I  know  YOU  CAN  DO  IT  " 
FOR  1=1  TO  28; BL* (38-1 , 38) =KE 
EP* 

SOUND  0, 100-1 , 8, INT(I/2) sPOSl 
TION  0,11:?  BL*: NEXT  I 
RESTORE  110:FOR  1=1  TO  35:REA 
D  A:SOUND  0,A,10,a:FOR  J=l  TO 
l*i:NEXT  JiNEXT  I  :  SOUND  0,0,0 

.0 

IF  NP=0  THEN  GOTO  715 

SOUND  0,0,0,0:GOTO  230 

GRAPHICS  ia:POSITION  5,2:?  #6 

;  "SCORE  " ; SC 

POSITION    4,6:?    «  6  ;  "  BEaHKEE^IF 

EH"  :  POSITION    3.7:?    #6;"ECMa3r 

IF  STRIG(0)=0  THEN  SOUND  0,0, 
0,0:GOTD  170 

RESTORE  110:FOR  1=1  TO  35:REA 
D  A:SOUND  0,A,10,B:FOR  J=l  TO 
12:NEXT  J ; NE X T  I  : SOUND  0,0,0,0 


78    COMPUTEI     September  1984 


AATARI 

600XL CALL 

800XL CALL 


1     WicoJoysttck 
■^\  WicoTraC>^bari 

CompuServe 

Covers 


SPECIALS 

$21  MaxBlls    S25 

$36  Memoren  $24 

$26  Elephanls    .  .  .■ $18 

.     $7  Fllp'N  File 


COMMODORE 


-  $!0 


1984     Atari.  Inc.        All  righii  resent fd. 


INTERFACES 

Axiom846    Call 

Ape  Face    Call 

Atari 850  (In  Stock)  -.  $169 

Interlast  1    S150 

Microblts  1150 Call 

Axiom  BuKer    Call 

DIRECT  PRINTERS 

Axiom  AT- 100  S219 

Alari  1027    1285 

AxlomSSOAT    $319 

Axiom  700  AT    $469 

Alari  1025    $395 

DIRECT  MODEMS 

Microblts  1000C  ....  $128 
Atan  1030    $114 

OTHER  ATARI 

400  Keyboard  .       Call        ATR-8000(64K)    S448 

Koala  Pad  $67  ATR-8000(16K)    ,       ,.$295 

Ctia  Ik  board  Pad  $75  Alien  Voice  Box           -198 

Bit  3  80  Column  .         $228         1010  Recorder 574 


ATARI  SOFTWARE 


DISK  DRIVES 

mausGT Call 

TrakATD2    $388 

TrakAT-l    $319 

Trak  AT.D4   Call 

Asira  1620  (Dual)    --     $499 

Peroom Call 

Atari  1060    $349 

Rana  1000 Call 

MEMORIES 

MicrobltB64K(XL)         $126 
Mosaic  48K  (400)  .  $98 

Mosaic  64K  (400(8001     Call 

Mosaic  32K $68 

Atari  64K(600XL)   ,,  ,  ,  Call 


ADVENTURE  INTL 

Ultra  Disassembler  (D|  $33 


Diskey(D)        .    .    - 

$33 

Adv.  112(Bach|(C)  .  . 

.  $18 

Saga  1-12  (each!  (D(   . 

-  Si!/ 

ATARr 

Atari  Writer  (R)    ,    ,  , 

,  $68 

Painl(D) 

.  $30 

Microsoft  Basic  li(R) 

.  $64 

Visicalc(D)    

$139 

Home  File  MBr(D) 

.  $36 

Assembler  Editor  [Hi 

,  $44 

QiK(R)    

.  $32 

Dig  Dug  (Rl    

.  $32 

AtarrLogO(R)    

.  i;^ 

Robotron(R)    

.  $3b 

AVALON  HILL 

Teiengard    .  (C)$16(D)$19 

ClosflAssaull    (0120(0)23 

TAC(D)     

,  $:>/ 

BRODERBUNO 

Arcade  Mactiine(D] 

.  $39 

Bank  St,  Writer  ID]    , 

$46 

Oper.  Whirlwind  (D) 

.  $2/ 

Chopllfter    .  (D)$23(R1$29 

David's  Midnight  (D)  . 

.  $23 

CBS  SOFTWARE  , .  , 

Call 

CONTINENTAL 

Home  Accouniani(D) 

$48 

Tax  Advaniai3e(D)     , 

.  $i^ 

COUNTERPOmTSW 

Call 

DATASOFT 

Pooyan(C/D)  

$20 

Teietaik(D)    

$33 

Basic  Compiler(D)  -  - 

$66 

GraptiicGen(D)    .... 

.  $1/ 

Graphic  Master  (D)  ,  . 

.  $23 

MicropainterlD)     .., 

.S23 

Zaxxon(C/D|   

.  $2/ 

Text  Wizard/Spell  (0) 

Sbb 

EASTERN  HOUSE 

■ 

Monkey  Wrench  II 

.  $51 

EDUCATIONAL  SW 

Tricky  l,2,3or4 

.  Jib 

Tricky5-13 

.  $22 

EPYX 

Dragon  Riders  (C(D)  . 

.  $27 

Temple  APS  (C(D)  .  .  , 

.  $27 

Jumpman{C/D)  ,    .  . 

.  $2/ 

Pit  Stop  (R)    ,. 

.  $2,> 

FIRST  STAR 

Boulder  Dsh  (C/D|20(R)27 

Bristles  (C/Dl 

-  $2U 

Flip  Flop (C/D) 

.  $20 

GAMESTAR 

Football  (C/DI  

,  $21 

Baseball  (CID) 

,  $21 

INFOCOM 

Zork  1,  llortll(O)         . 

$27 

Deadline  (Dl    

$34 

Starcross(D) 

$27 

Suspended (Dl 

$34 

Witnes5(D) 

$34 

Planel(aii(D) 

.  $34 

Enchanter  (D) 

-  $34 

Infidel  (D) 

.  $34 

KRELLSAT     

.  Call 

INTELL.  STATEMENTS 

Prof- Blackjack  (D)   . 

.  $46 

UK 

Letter  Perfect  (Dl    .. 

.  $74 

Data  Perfect  (0) 

$74 

Spell  Perfect  (Dl 

-  $bfi 

(.elter  Perfect  |R| 

$74 

MICROPROSE 

Solo  Flight  (D)  

.  $26 

Hellcat  Ace  (C(D) 

.  $23 

IMONARCH 

ABCCompller(Dl     . 

.  Sbb 

CBM64    CALL 

SX64 CALL 

1701  MONITOR    S249 

>ms\m  1620 

DISK  DRIVE  SYSTEM 

MORE  FOR  YOUR  MONEY 

DOUBLE  OR  SINGLE  DENSITY 

TWO  DRIVES 

SPECIAL    S499 

Printers/Etc. 


OPTIMIZED  SYSTEMS 

Action  (H)     S65 

Basic  XL  (R( $65 

Mac65(D|    $58 

C-65(D)    $58 

Bug65(Dl    $23 

PARKER  BROS 

Aslrochase(B)    S33 

Death  Star  (R)   $33 

0-Bert(R| S33 

Popeye(R)  $33 

PENGUIN 

Graphics  Magician  (0}  $39 

Spy's  Demise(D)    ....  $21 

QUALITY  SW 

Return  of  Hercules(Dt    522 

AH  BaOalD)  -  $22 

RESTOM 

Moviemaker(OJ $45 

SCARBOROUGH  SYS. 

Masterlype(D/B) S27 

Songwriter  (O) $27 

SCHOOL  WIZWARE  .  Call 
SEGA 

Star  Trek  (R)    $27 

Buck  Rogers  (R)    $27 

Congo  Bongo (R)  ....  $27 
SIERRA  ONLINE 

HomewordlDi     $46 

Ultima  II(D1 $39 

Dark  Crysta  1(D)    $26 

Wiz-S  Princess  (D)  ,    .  $22 

SPINNAKER 

Snooper  Troop  1,2(0)  ,  $30 

Most  Amazing(D)  ,, .    $27 

Kids  on  Keys  (Dl   S20 

Trains(01 S27 

Delta  Drawing  (R)  .  .  $27 
Aerobics  (D)  S34 

STRATEGIC  SIM. 

Broadsides  (D)    $27 

Carrier  Force  (0) $39 

Combat  Leader  (Dl   , . .  $27 

Rails  West  (0)  $27 

Epidemic  (Dl    $23 

Eagles  (D)   $27 

Cosmic  Ball  or  11(01  , .  $27 

SUBLOGIC 

Flight  Simulator  11(0)  ,  $36 

Plnball(C/Dl    $20 

SYNAPSE 

SynFlle  +  (D)   $66 

SynTeil(D)  $65 

FlieManager(Rl  ...  $54 
Fort  Apocalypse  (C(D)  $23 
Dimension  X  (C/D)    ...  $23 

Blue  Max  (C/D)    S23 

Encounter  (D/R|    $23 

Zepplin(C/D|   $23 

Pharoah'sCurse(CJDj  $23 
TRONIX 

S.A.M  (D) $39 

P.M.  AnimatorlDl  .         S29 

Juice  IC/D) $20 

Chatierbee(D)    527 

MISCELLANEOUS 

Miner 2049 (R)   $34 

Millionaire  (CID)   .    .      $45 

Zombies  |C(D) S23 

Prisoner  2(D)       $27 

SargonlllD)      $23 

Gridrunner{R)   $20 

BGraph(Dl    S65 

Miles  Invoices  (D)  ...  $57 
Castle WolfensteinlD)  S20 

Odesta  Chess  (D)    S46 

Financial  Wizaid(D)  $41 
Ultima  111(0)    $39 


STAR 

Gemini  lOX   $268 

Gemini  15X   $378 

Delta  10     ,  $378 

Star  Letter  Qual        ,    Call 
EPSON 

rxao   .    Call 

MX100 Call 

RX  80  F/T   Call 

SMITH  CORONA 

TP II        .         .  S43B 

JUKI    Call 


CITOH 
Prowriter    ,  . 
Prowriter  II 
Slarwriter 
Printmaster 
OKIOATA 
a2A    

a4p  

92    

93        

MANNESMAN 

160L 
Spirit 


MONITORS 


AMDEK 

Color  I    , $274 


NEC 

GRNIJB1260I 


V300 $139       GRN(JB1201) 


V300A    $149 

Color  If $449 

SAKATA Call 


Color  Composite 
RGB  Color 

PANASONIC 


. ,  $336 

.     $648 

.  $1098 

$1448 

.  .  Call 
. .  Call 

. .  Call 
Call 

.    $588 
Call 


$115 
$149 
$298 
$598 

Call 


MODEMS 

NOVATION 

J-Cat     $99 

Apple Cal  II   S259 

0-Cat $149 


HAYES 

Smartmodem    $209 

Smartmodem  1200  .  ,  $498 
Micromodemfl  ,  .,  $259 
Micromodemlle     , ,    $239 


O 


ov 


.sV 


(0»^ 


\.<^' 


,6^' 


.el 


G  " 


COSMIC 
COMPUTERS 

UNLIf/IITED 

727  BREA  CANYON  RD.,  SUITE  16 
WALNUT,  CA  91789 

ORDER  LINES  OPEN  MON-SAT  8  am  -  8  pm 

(800)  626-7642 


IN 


PLEASE  FOR  ORDERS  ONLY 
SORRY,  NO  COD'S 

(714)  594-5204 


DISK  DRIVES 

MSD(170K|    $349 

MSD(Dual)(170Kx2i     $539 

Laser{170Kl    S325 

Commodore  1541      .  .  $239 
Concord{170K|  Call 

BO  COLUMN  BDS 

BatleriesaoCoi  $149 

Video  Pall  60  $129 

280  Video  Pak  $209 

DIRECT  MODEMS 

Hesmodem   S53 

l650Automoaern     ,    .  S9S 
1600  Modem Call 


CALIF. 

FOR  TECHNICAL  INFO,  ORDER  INQUIRIES, 
OR  FOR  CALIFGRNJA  ORDERS 

AddS2.50  shipping  per  software  order  m  conlirienlal  U  S  MO  $b  OQ 
Shipping  per  software  order  lor  AK,  HI  FPOAPO  Add  $10  00  or  ISVi 
(whichevef  is  grealer)  per  soltware  order  lor  non-U  5  Call  for  cost  ol 
Hardware  shipping  dht  residents  add  6^/i'/i  sales  tax  Cashiers 
checks  or  mioney  orders  IiHed  withm  34  liiours  tor  items  m  stock 
Personal  ctiec4<s  require  4  weeks  to  dear  MasterCard  and  Visa  OK  tof 
software  only  within  continental  U  5  .  add  3%  surcharge  Include  card 
no  .  eKpFraiiofi  date  and  signature  Due  to  our  low  prices,  all  sales  are 
tinal  All  delecli^e  returns  must  nave  a  return  auttiorizalion  number 
Please  call  to  omam  one  before  relurning  goods  for  repfacemenl  or 
repair  Prices  I  availstiility  suDject  to  change 


64 


INTERFACES 

Ttie  Connecllon    $85 

Bus  Card   J149 

Cardco  G  + $69 

CardcoB Call 

MSOIIEEE)  S9B 

Cardco  5  Slot  548 

RS232  Call 

DIRECT  PRINTERS 

MPS801  S219 

Commodore  1526  $288 

Cardco  LO/I  J498 

1520ColOr  Printer  S129 

RECORDERS 

Cardco  Recorder  $48 

1530  Commodore  Cal! 

Cassette  Inlertace         S29 


SOFTWARE 


64 


ACCESS  SOFTWARE 

Beactied(01 S24 

Neutral  Zone  (C/Dl  .  S24 
SpntemaslertD)  .  $25 

AVALON  HILL 
NukeWarfCl  $12 

Androm.  Conquest  (CJ  SH 
Midway Campargn(C)  S13 
Compuler  Football  (C|  S13 
Teiengard    .  (C)S16(D1$19 

Flying  Ace  (C) $15 

Moon  Patrol  (CI  $17 

BATTERIES  INCLUDED 
Paper  Clip  (Dl         ..         $69 
Consultant  (0)  $75 

Bus  Card  $138 

BO  Column  6D  $138 

Paperclip  w;Speli(DI  S85 
Spell  Pack(D)  ,  .    $37 

Organizer  Series  (Eal  ,  $22 
BLUE  SKY 

Calc  Result  Adv $99 

Calc  Result  Easy    ....  $57 
BRODERBUNO 
Bank  St.  Writer  (D)  $46 

Operat- WhrlwndiD)  . .  $27 
ChoplitleriR)  $27 

Lodeflunner  (D)23(R127 
CBS  SOFTWARE 
Success  wilh  Ma!ti(Dl  $17 
Wbslr  Word  Game  (Dl  $20 
Learning  Bridge  (D)  ,155 
COMMODORE 
Simon's  Basic  (R|  .  CALL 
Magic  Desk  (fl)         .  ,  ,  $48 

Logo(Dl  $'15 

Assembler64(D|  ,  .  ,  $15 
Easy  Script  64(0}  .  $32 
Accounting  PkgstEal  $32 
COMPUTER  ADV.  IDEAS 

Game  Show  (Dl $27 

WinW/Wordslorll(DI    $15 
Sports  Facts  (D)       ...  $15 
CONTINENTAL  S.W. 
Home  Accountant  (D)    $48 
Tax  Advantage  (01  $45 

FCM(D)  $34 

COUNTER  POINT  SW 
Early  Games  (Eal    .    .     $20 
CREATIVE  SOFTWARE 

MoondusllR)    $23 

Save  New  York  I R|      .    $23 

Pipes  (R)    S23 

Housetiid  Finance  (CI  $20 
DATASOFT 

Pooyan  |C(D1  $20 

Moon  Shuttle  (Dl $20 

ENTECH 

Studio64(C/D)  ..  $28 

Database  64  (Dl    $45 

EPYX 

Temple  of  APS  (C/Dl  ,  .  $27 
JumpmanlC'DI  ,  .  $27 

Dragonriders(C(D)   ...  $27 

PilslopIR)   $27 

Gateway  10 APS (Rl  ,.$27 
FIRST  STAR 

Astrochase(C(Dl    ., $20 

Brislle(C/D) $20 

Flip  Flop  (C(D) $20 

FUTURE  HOUSE 

Comp.  Pers  Account.    $56 

HES 

Synlhesound64|Dl    ..$23 

Omnicalc(D( $34 

OmnlMrriter  (0)    $45 

Hesmon(D) $27 

64  Forth  (R)    $39 

Multiplan(D)  $65 

Turtle  Grapliics(R)  ,  ,  ,  $39 
INFOCOM 

PianBlFall(D)   $34 

Enchanter  (Dl  -  $34 

Inlidel(D) $34 

JINSAM 

MiniJini(R| $75 

MICROSOFTWARE  INFL 
Practicalc64      (C)34|Dl36 
Spreadsheet      IC)  49(D)  52 

Prac1ifile64(Dl  136 

MIRAGE  CONCEPTS 

Data  Base  (D)    $88 

Word  Processor  (D)    ,    $68 


MICBOSPEC 

Database  (D) $44 

Mailing  List  (D)  ,  .  $32 

Checkbook  Mgr(Dl  ...  $47 

G/L(D)         $44 

A/P(D) $47 

WR(DI  $47 

PARKER  BROS 

QBerllRl  S33 

Popeye(fl)  $33 

FroggeiiRl  $33 

PROFESSIONAL  SW 

WordPro  W(Spel!(Dl        $68 

Spelirtght(D|  ,  $45 

OUIKTEX 

Quick  Br   Fox(R|  $49 

RAINBOW 

File  Assistant  (Dl  $46 

Writers  Assistant  (Dl       $46 

Spreadshl  Assist.  (D)     $56 

SCARBOROUGH 

Mastertypo(DrR)  $27 

Song  Writer  (Dl  $27 

SEGA 

SlarTrek(R|  $27 

BuckSogerslRl  .  $27 

Congo  Bongo (R)  $27 

SOFTS  MIT  H 

Touch  Typmg  (C/D)       ,  $21 

SOUTHERN  SOLUTIONS 

Businessman  (Dl       .       $48 

Bill  Payer  (Dl   $48 

BillColtBctoriDl       .  ,  .  $48 

Paymaster  (Dl     $48 

SPINNAKER 

Snooper  t  or  2  (Dl     .. 

Aerobics  (Dl 

Kids  on  Keys  (Dl 

Most  Ama;mg(D) 

Kindercomp(D) 

Alphabet  Zoo  (Dl 

Trains  (Dl 

Delta  Drawing(Rl 

Delta  Music  (R)  , 

SUBLOGIC 

Flight  Simulator  II  ID) 

Pinball(CID)    

SYNAPSE 

Fl.  Apocalypse  (CiD) 

tJecromancer(C(Dl    , 

ZaxiconiD) 

Blue  Max  (Dl    $23 

Pharoah-sCur5e(C/D|    $23 

ZepplinIO) 

Oua5imodD(D) 

SSI 

Combat  Leader  (C/Dl 

Computer  Baseball  (Dl  $27 

Eagles  (Dl    $27 

Ringside  Seat  (Dl  ...  $27 
Tigers  In  Snow  (CrD)  ,  $27 
Bailie  Normandy  (C(Dl  $27 
TIMEWORKS 

DungeDnso(  Alg.  (C(D)$17 
Robbers  Losl(C(D)  .  $17 
Money  Mgr(C(Dl  ,.,$17 
Wall  Street  (C/0)  . .  ,  ,  $17 
Data  Manager  (C/D)  . .  $17 
Elec.  Checkbook  (C/Dl  $17 
TOTL 

,  (C)  $32  ID)  $34 
|C)$15|D)$t7 


$27 
$34 
$20 
$27 
$20 
,  20 
$27 
$27 
$27 

.  $36 
$22 

$23 
S23 

$23 


$23 
$23 


$27 


Toll  Text    , 

Label    

Time  Mgr, 

Rsrch  Asst 

TRONIX 

S.A.M.  10) 

Juice  (Dl 

Chatlerbee(D) 

MISCELLANEOUS 

DiskeylDI 

Barrens  Sal  (Dl 

Millionaire(O) 

Sargontl(D) 

BGraph(D| 

Castle Woltens!ein(Dl  $20 

Odesta  Chess  (0)     .      $46 

Ultima  III  ID)    $39 

Prof  B1ack|ack(D)   ...  $46 
Homeword(Dl  $46 

Pers.  Accountant  (0)    .$23 

Karate  Devils  (D) $27 

Final  Flight  ID)    $22 

MAE  Assembler  10)         $47 


|C1$24|D)$27 
(C)$24(D)$27 

$39 

.  $23 

$27 


$33 
$59 
$39 
$23 
$59 


JB 

2035 

m 

2040 

(lA 

2050 

S5 

2100 

MG 

2499 

H 

2500 

CL 

2510 

PH 

2520 

Ht  760  GOTO  740  IK  3 1 20  POSITION  30,2:7  "  "  ;  SC 

HF  770  END  KH3130  RETURN 

£6  1999  REH  MISSILE  MOVEMENT  AB  3499  REM  CHANGE  UFD  HEIGHT 

FL  2000  YH1=Y1  PB  3500  FOR  I  =PMB ASE +  5  1  2  + Y0  1  TO  PMBA 

HG2010  Yl=Yl-5  SE  +  5ia  +  Y01  :  GOSUB  3ib00:PDKE  I 

PF  2020  IF  YK5  THEN  GUN  =  0:SOUND  0,0  ,0:NEXT  I 

,0,0:RETURN  AF3510  FOR  I  =PMBASE  +  76a  + Y0 1  TO  PMBA 

6J  2030  POKE  PMBASE  +  3e4+YHl  , 0: POKE  P  SE +  776  +  Y0 1  : BOSUB  3600:POKE  I 

MBASE+3S4+Y1 , 4: SOUND  0,Y1,8,  ,0:NEXT  I 

10  PE  3520  Y0  =  40 

IF  PEEK  (53257)  <  >3THEN  RETURN  Gl  3530  RESTORE  3535:FDR  I=PMBASE+51 
GOSUB  2500  2+Y0  TO  PMBASE+5 1 8+ Y0 : GOSUB 

POKE  77,0  3600:READ  AiPOKE  I,A;NEXT  I 

POKE  PMBASE  +  384  +  Y1  ,  0:  GUN  =  0:  P  FO  3535  DATA  24,60,255,255,255,60.24 

OKE  53278,  1  :  SOUND  0,0,0,0:RE  HN  3540  RESTORE  3545:FDR  I=PMBASE  +  76 
TURN  B  +  Y0  TO  PMBASE  +  776  + Y0  :  GOSUB 

REM  CHECK  COLLISION  3600:READ  A:POKE  I,A:NEXT  I 

REM  GF  3545  DATA  16,68,82,137,66.161,34, 
XC0R=4t6«DT+45  68,16 

IF  XMKXCOR+15  AND  XMi>XCOR-  FC  3546  Y01=Y0 

3  THEN  GOSUB  3000 : H I T= 1 : GOTO  U 3550  PM 1 =PMBASE+5 1 2+ Y0 : PM2=PMBASE 
2540  +768+Y0 

BD  2530  GOSUB  2700  JK  3560  POKE  204  ,  I  NT  (  PM  1  /  256  >  :  POKE  2 

DN  2540  GUN  =  0:RETURN  07  ,  I  NT  (  PM2  /  256  ) 

HI  2699  REM  UFO  CLUNKS  OK  3570  POKE  203  ,  PM  1 -(  PEEK  (  204  )  «256  ) 

CE  2700  POKE  704,14  -1:PDKE  206  ,  PM2-  (  PEEK  (  207  >  »2 

EO2710  FDR  1  =  1  TO  25:S0UND  0,150+1,  56)-l 

10,8:NEXT  I  66  3580  POKE  205,7:POKE  208,9 

PN  2720  SOUND  0,0,0,0:POKE  704,24:PO  LB  3590  RETURN 

KE  53279,1  BH3600  ST  =  ST  I  CK  C  0  )  :  X  1  =  X  1  +  4  «  (  (  ST  =  7  )  + 

KK  2  7  30  RETURN  (  X  1<  2  1  0  )  )  :  X  1  =  X  1 -4  «  (  (  ST=  1  1  )  +  < 

AJ  2799  REM  EXPLOSION  SOUND  X1>40)):PDKE  53249,  XI 

BF  2800  FOR  1  =  1  TO  2  :  N=  I  NT  <  1  0*  RND  <  0  )  KK3610  RETURN 

+  1)*10  OB  3699  REM  UFO  DOWN 

DC2S10  FOR  L=15  TO  0  STEP  -IsSOUND  KG  3700  Y0  =  Y0  +  20 

0,  N,  0,  L:  SOUND  1  ,  N+ 1  ,  0  ,  L  :  SOUN  GO3710  FOR  1  =  1  TO  20 

D  2,  N  +  2.  0,  L:  SOUND  3,N/2,0,L  PN  3720  AB  =  USR  (  1  536  )  :  BA  =  USR  (  1  55  1  )  :  GO 

PH2S20  FOR  J  =  l  TO  10:NEXT  J:NEXT  L  SUB  3600:NEXT  I 

CE  2830  POKE  53258,  3:NEXT  I  FB  3725  Y01  =  Y0 

Ifl  2840  POKE  53258,  i:POKE  53250,250  KN  3730  RETURN 

KP  2850  RETURN  LP  3999  REM  VERTICAL  MOVEMENT  DOWN 

GB  2999  REM  DIRECT  HIT  LB  4000  RESTORE  4050 

flF  3000  POKE  53248,  250:  POKE  53250,  X0  HF4010  FDR  1  =  1536  TO  1565 

:POKE  53253,250  flE 4020  READ  A:POKE  I,A:NEXT  I 

GO  3025  POSITION  6«DT  ,  I  NT  (  f  Y0- 1  4  )  /  4  )  t;K4030  RETURN 

JK  3030  IF  Y0  =  40  THEN  SC  =  SC  +  25 :  SCL  =  S  NI  4050  DATA  104,164,205,177.203,200 
CL  +  25:'>  "25"  ,145,203.136,136,16,247,230, 

IL  3040  IF  Y0  =  60  THEN  SC=  5C+ 1  0 :  SCL  =  S  203,96 

CL  +  10:?  "10"  OF  4060  DATA  104.164,208,177,206,200 

AK  3050  IF  Y0  =  80  THEN  SC=  SC  +  5 :  SCL  =  SC  ,145,206,136,136,16,247,230, 

L+5:?  "5"  206,96 

BH  3055  GOSUB  2800  P!  4999  REM  MENU 

GB  3060  POSITION  30,2:?  "   ";SC:FOR  I  AN  5000  GRAPHICS  0:?  CHR*  (  1 25 )  :  POKE 
=1  TO  250SNEXT  I  752,1 

flj  3070  IF  SCL>  =  50  AND  SCL/PB>20  THE  CD  5020  POSITION  11,2:?  "MISSILE  MAT 
N  POSITION  13,12:HU=5:?  "50  H  MENU" 

BONUS  POINTS" :SC  =  SC  +  50: GOTO  KN  5030  ?  :?  "MOVE  JOYSTICK  AND  PUSH 
3090  TRIGGER":?  "TO  SELECT  GAME" 

EJ  3080  IF  SCL>  =  50  AND  SCL/PB>=10  TH  BC  5060  M«=  "  {  Q>  <  W  J  CE  :  f  DOWN  >  {  3  LEFT} 
EN  POSITION  13,12:HU  =  4:?  "25  <A]   CDi<D0WN>{:3  LEFT><Z>{XJ 

BONUS  POINTS" t SC=SC+25: GOTO  tCJ" 

3090  GE  5070  POSITION  8,11:?  "ADDITION  ?< 
SOTO  3130  €4  spaces: MULTIPLI CAT  ION" 

FOR  1  =  1  TO  3  KB  5075  POSITION  8,12:?  "SUBTRACTION 
SETCQLDR  2,HU,4:S0UND  0,25,1  {3  SPACES>S<  DIVISION" 

0,S5FOR  J=l  TO  50:NEXT  J  EP  5080  ?  :?  :?  "SL0WC4  SPACES  J  CUP  >  " 
SETCOLDR  2,0,2:SOUND  0,75,10  ; M« 

,S:FOR  a=l  TO  50:NEXT  J:NEXT  DN  5085  "^     :?  :?  "FASTC4  SPACESJ  CUP}  " 
i:SOUND  0, 0, 0, 0: SOUND  1  , 0, 0  ,  0  ; M* 
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Ut\  3085 

Efl  3090 

KF  3100 

AN  3  1  1  0 

LK  5090 
HF  5100 
BN  5  1  1  0 

OD  5120 

fie  5  1 30 
LB  51  35 
DK  5  14  0 

NB  5150 

NO  5  1  60 

6H  5170 

HD  5180 

EN  51<?0 

GP  5200 

NJ  5210 

HJ  5220 
U  5230 
JP  5497 
JA  5500 
00  5  5  1  0 

ftE  5520 
LN  5530 

LK  5540 

PB  5570 

Aft  55S0 
IC  5610 
PH  5620 
KO  5630 


POSITION  25 
25, 18: ?  M* 
SCR  =  PEEK  <8S 
=611: MENU=1 
POKE  SCR+XC 
50:NEXT  DLY 
POKE  SCR+XC 
0:NEXT  DLY 
IF  STRIG(0) 
ST=STICK (0) 
IF  ST=7  AND 
26: MENU=2 
IF  ST=13  AN 
7  7  1  :  D  X  =  3 
IF  ST=13  AN 
786:DX=3 
IF  ST=11  AN 
611: MENU=1 
IF  ST=1'«  AN 
611: DX=1 
IF  ST=7  AND 
86: MENU=2 
IF  ST=11  AN 
771  :  t1ENU=l 
IF  ST=14  AN 
626: DX=1 
GOTO  5110 
RETURN 
REM  INITIAL 
X 1=250: Yl=9 
J=PEEK (106) 
MBASE=256«J 
POKE  559,46 
POKE  53256, 
KE  53258, 1 : 
FOR  I=PMBAS 
96: POKE  I , 0 
RESTORE  558 
0+Vl  TO  PMB 
:POKE  I,A:N 
DATA  8,8,8, 
,54 

POKE  704,24 
E  706, 14 
POKE  53248, 
POKE  53250, 
RETURN 


,14:7  M«: POSITION 

)  +256»:PEEK  <89)  :  XC 

:  DX  =  1 

,83:FDR  DLY=1  TO 

,0:FOR  DLY=1  TO  5 

=0  THEN  GOTO  5230 

XC=611  THEN  XC=6 
D  XC=611  THEN  XC= 
D  XC=626  THEN  XC= 
D  XC=626  THEN  XC= 
D  XC=77i  THEN  XC= 

XC  =  771  THEN  XC=^7 
D  XC=7B6  THEN  XC= 
D  XC=786  THEN  XC= 


IZE  PM  GRAPHICS 
5: X0=2S0: Y0=40 
-a:POKE  54279, J:P 

:POKE  53277.3 

1 : POKE  53257, 1 : PO 

POKE  53260,  1 

E+384  TO  PHBASE+S 

:NEXT  I 

0:FQR  I=PMBASE+64 

ASE+649+Y1 ; READ  A 

EXT  I 

a, 8, 28, 127, 127, 54 

:POKE  705,200:POK 

X0:POKE  53249, XI: 
X0 


Program  2: 

VIC  Missile  Math,  Machine  Language 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  thiis 
program  in. 

12288  :160,000, 141, 106,003,152,050 
12294  : 153, 064, 003, 200, 192, 120, 226 
12300  : 208 , 248 , 169 , 001 , 141 , 068 , 079 
12306  : 003, 032, 102, 048, 096, 032, 075 
12312  ; 001, 049, 173, 062, 003, 072, 128 
12318  ; 168, 169, 03 5, 15 3, 206, 01 7, 010 
12324  :  200, 169, 036, 153, 206, 01 7, 049 
12330  : 200, 169, 037, 153, 206, 01 7, 056 
12336  ;104, 168, 162,000, 173,068, 211 
12342  : 003, 153, 206, 149, 200, 232, 229 
12348  :224,003, 208,244, 172,062,205 
12354  : 003, 096, 172, 062, 003, 162,  052 
12360  :  000, 169, 032, 15 3, 206, 01 7, 137 
12366  : 200, 2  32 , 224, 003 , 208, 245  ,  166 
12372  :  172, 062, 003, 200, 169, 03 2,  210 
12378  : 153, 184, 01 7, 169, 007, 153, 005 


12384 
12390 
12396 
12402 

12408 
12414 
12420 
12426 
12432 
12438 
12444 
12450 
12456 
12462 
12468 
12474 
12480 
12486 
12492 
12498 
12504 
12510 
12516 
12522 
12528 
12534 
12540 
12546 
12552 
12558 
12564 
12570 
12576 
12582 
12588 
12594 
12600 
12606 
12612 
12618 
12624 
12630 
12636 
12642 
12648 
12654 
12660 
12666 
12672 
12678 
12684 
12690 
12696 
12702 
12708 
12714 
12720 
12726 
12732 
12738 
12744 
12750 
12756 
12762 
12768 
12774 
12780 
12786 
12792 


184 

149 

,172 

,062 

,003 

,096, 

169 

,207 

,141 

,019 

,145 

,173, 

017 

,145 

,141 

,070 

,003 

,169, 

127 

,141 

,034 

,145 

,173 

,032, 

145 

,073 

,255 

,041 

,  128 

,013, 

070 

,003 

,041 

,176 

.141 

,074, 

003 

,169 

,255 

,141 

,034 

,  145  , 

173 

,074 

,003 

,201 

,048 

,240, 

054 

201 

,016 

,208 

,019 

,173, 

112 

003 

,205 

,100 

,003 

,240, 

005 

169 

,001 

,141 

,092 

,003, 

173 

100 

,003 

,141 

,112 

,003, 

173 

074 

,003 

,201 

,032 

,208, 

010 

172 

,078 

,003 

,192 

,000, 

240 

,003 

,206 

,078 

,003 

,201, 

176 

,208 

,010 

,172 

,078 

,003, 

192 

,003 

,176 

,003 

,238 

,078, 

003 

,172 

,078 

,003 

,  185 

,252, 

048 

141 

,062 

,003 

,072 

,152, 

072 

032 

,023 

,048 

,104 

,168, 

104 

,172 

,078 

,003 

,204 

,066, 

003 

240 

,012 

,172 

,066 

,003, 

185 

252 

,048 

,141 

,062 

,003, 

032 

068 

,048 

,172 

,078 

,003, 

140 

066 

,003 

,173 

,092 

,003, 

240 

003 

,032 

,065 

,049 

,096, 

003 

007 

,011 

,015 

,019 

,024, 

173 

062 

,003 

,105 

,206 

,133, 

253 

169 

,017 

,105 

,000 

,133, 

254 

056 

,  165 

,253 

,233 

,021, 

133 

253 

,165 

,254 

,233 

,000, 

133 

254 

,024 

,165 

,253 

,105, 

000 

133 

,253 

,165 

,254 

,105, 

132 

133 

,254 

,169 

,002 

,160, 

000 

145 

,253 

,056 

,165 

,253, 

233 

000 

,133 

,253 

,165 

254, 

233 

132 

133 

,254 

,169 

038, 

145 

253 

096 

,169 

022 

141, 

104 

003 

162 

,005 

,160 

021, 

189 

021 

,050 

,133 

,163 

189, 

253 

049 

133 

,  164 

202 

189, 

021 

050 

133 

,  168 

189 

253, 

049 

133 

169 

032 

212 

050, 

177 

163 

,201 

,038 

,144 

061, 

201 

040 

,176 

,057 

072 

177, 

168 

201 

,057 

,144 

,013 

104, 

140 

110 

003 

,032 

203 

049, 

172 

110 

003 

,076 

129 

049, 

104 

145 

168 

024 

165 

168, 

105 

000 

133 

168 

165 

169, 

105, 

132 

133 

169 

169, 

002, 

145, 

168 

056 

165 

168, 

233, 

000, 

133 

168 

165 

169, 

233, 

132, 

133, 

169 

169 

032, 

145, 

163, 

136 

016 

183 

232, 

232, 

224, 

023, 

208, 

154, 

206, 

104, 

003, 

173, 

104, 

003, 

016, 

144, 

169, 

032, 

141, 

092, 

016, 

141, 

096, 

016, 

141, 

100, 

016, 

141, 

104, 

016, 

136, 

169, 

000, 

141, 

092, 

003 

096, 

072 

173, 

133, 

003, 

205, 

078, 

003, 

208, 

015, 

032, 

228, 

050, 

104, 

169, 

000, 

072, 

169, 

003, 

141, 

132, 

003, 

076, 

231, 

049, 

104, 

177, 

168, 

072, 

104, 

096, 

024, 

169, 

206, 

109, 

062, 

003, 

133, 

253, 

169, 

017, 

105, 

000, 

133, 

254, 

169, 

000, 

141, 

065, 

049, 

096, 

016, 

,250 
,188 
,141 

,254 
,007 
,119 
,111 
,109 
,047 
,045 
,055 
,182 
,091 
,117 
,143 
,065 
,114 
,123 
,170 
,145 
,075 
,206 
,151 
,123 
,205 
,219 
,075 
,172 
,173 
,228 
,034 
,192 
,174 
,120 
,148 
,064 
,247 
,120 
,011 
,051 
,046 
,132 
,225 
,114 
,059 
,029 
,141 
,  149 
,134 
,106 
,082 
,057 
,252 
,170 
,102 
,065 
,107 
,005 
,  186 
,248 
,001 
,206 
,027 
,226 
,005 
,133 
,197 
,152 
,  103 
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12798 

:016 

,016 

,016 

,016 

,016 

,016 

,094 

12804 

:016 

,016 

,016 

,016 

,016 

,017 

,101 

12810 

-.017 

,017 

,017 

,017 

,017 

,017 

,112 

12816 

:017 

,017 

,017 

,017 

,017 

,000 

,101 

12822 

:022 

,044 

,066 

,088 

,110 

,132 

,228 

12828 

:154 

,176 

,198 

,220 

,242 

,008 

,002 

12834 

:030 

,052 

,074 

,096 

,118 

,140 

,032 

12840 

;162 

,184 

,206 

,228 

,250 

,173 

,219 

12846 

:106 

,003 

,208 

,029 

,169 

,110 

,159 

12852 

:133 

,251 

,169 

,016 

,133 

,252 

,238 

12858 

:160 

,019 

,140 

,096 

,003 

,169 

,133 

12864 

:005 

,141 

,098 

,003 

,169 

,001 

,225 

12870 

:141 

,106 

,003 

,169 

,000 

,141 

,118 

12876 

:100 

,003 

,096 

,173 

,100 

,003 

,039 

12882 

:201 

,003 

,144 

,013 

,169 

,000 

,100 

12888 

:141 

,106 

,003 

,169 

,002 

,141 

,138 

12894 

:132 

,003 

,076 

,211 

050 

172 

,226 

12900 

:096 

,003 

,169 

,058 

145 

,251 

,054 

12906 

:200 

,169 

,060 

,145 

251 

200 

,107 

12912 

:169 

,062 

,145 

,251 

172 

,096 

,239 

12918 

:003 

,200 

,200 

,200 

169 

,032 

,154 

12924 

:145 

251 

,200 

145 

251 

200 

,036 

12930 

:145 

,251 

,172 

,096 

003 

024 

,053 

12936 

:165 

251 

,105 

000 

133 

251 

,017 

12942 

:165 

252 

,105 

132 

133 

252 

157 

12948 

:173 

098 

003 

145 

251 

200 

250 

12954 

:145 

251 

200 

145 

251 

056 

178 

12960 

:165 

251 

233 

000 

133 

251 

,169 

12966 

:165 

252 

233 

132 

133 

252 

053 

12972 

;206 

096 

003 

173 

096 

003 

237 

12978 

:208 

031 

169 

032 

145 

251 

246 

12984 

:136, 

145 

251 

136 

145 

251 

224 

12990 

:024 

165 

251 

105 

132 

133 

232 

12996 

:251 

165 

252 

105 

000 

133 

078 

13002 

:252 

160 

019 

140 

096 

003 

104 

13008 

:23B 

100 

003 

096 

072 

152 

101 

13014 

:072 

138 

072 

160 

050 

136 

074 

13020 

:208, 

253 

104 

170 

104 

168 

203 

13026 

:104, 

096 

169 

015 

141 

014 

253 

13032 

:144, 

169 

128, 

141, 

013 

144, 

203 

13038 

:162, 

255 

032 

212 

050 

202, 

127 

13044 

:208, 

250 

169 

000, 

141 

014, 

002 

13050 

:144, 

169 

032 

145, 

168, 

172, 

056 

13056 

:096, 

003, 

200, 

169, 

000, 

145, 

101 

13062 

:251, 

200, 

169, 

000, 

145, 

251, 

254 

13068 

:200, 

169, 

000 

145, 

251 

024, 

033 

13074 

:165, 

251, 

105, 

000, 

133, 

251, 

155 

13080 

:165, 

252, 

105, 

132, 

133, 

252, 

039 

13086 

;172, 

096, 

003, 

200, 

145, 

251, 

129 

13092 

:200, 

145, 

251, 

200, 

145, 

251, 

204 

13098 

:056, 

165, 

251, 

233, 

000, 

133, 

112 

13104 

:251, 

165, 

252, 

233, 

132, 

133, 

190 

13110 

:252, 

162, 

255, 

032, 

212, 

050, 

249 

13116 

:202, 

208, 

250, 

202, 

208, 

253, 

103 

13122 

:096, 

160, 

000, 

185, 

000, 

128, 

123 

13128 

:153, 

000, 

020, 

200, 

208, 

247, 

132 

13134 

:160, 

000, 

185, 

000, 

129, 

153, 

193 

13140 

:000, 

021, 

200, 

208, 

247, 

160, 

152 

13146 

:000, 

185, 

000, 

130, 

153, 

000, 

046 

13152 

:022, 

200, 

208, 

247, 

160, 

000, 

165 

13158 

:185, 

000, 

131, 

153, 

000, 

023, 

082 

13164 

:200, 

208, 

247, 

160, 

007, 

185, 

091 

13170 

:172, 

051, 

153, 

000, 

020, 

136, 

134 

13176 

:016, 

247, 

160, 

031, 

185, 

180, 

171 

13182 

:051, 

153, 

024, 

021, 

136, 

016, 

015 

13188 

;247, 

160, 

007, 

185, 

212, 

051, 

226 

13194 

:153, 

208, 

021, 

136, 

016, 

247, 

151 

13200 

:160, 

007, 

185, 

220, 

051, 

153, 

152 

13206 

:224, 

021, 

136, 

016, 

247, 

160, 

186 

13212 
13218 
13224 
13230 
13236 
13242 
13248 
13254 
13260 
13266 
13272 
13278 
13284 
13290 


:007,185, 
:021, 136, 
:  141, 005, 
:164,073, 
:000, 000, 
:112,240, 
:255,255, 
:12a, 192, 
:  000, 033, 
;  000, 000, 
:031 ,063 , 
;  000, 255, 
:  001, 007, 
;255,255, 


228,051 

016,247 
144,096 
018, 164 
001 ,003 
024,255 
000,000 
248,252 
030,030 
000,000 
127,127 
255,255 
031,255 
013,013 


,153, 
,169, 
,146, 
,146, 
,031, 
,255, 
,000, 
.014, 
,030, 
,000, 
,000, 
,255, 
,255, 
,013, 


240, 252 
205,188 
073,005 
000,227 
063,022 
255,047 
000,  190 
015,023 
033,104 
007,217 
000,052 
255,217 
255,008 
013,028 


Program  3:  vie  Missile  Math,  basic 

Refer  to  the  "Automatic  Proofreader  article  before  typing  thils 
program  In. 

5  POKE  36879, a:POKE56,48:CLR:SYS65017 

:rem  156 
10  PRINT"{CLR){2  DOWN){WHT}":A$="MISSILE 

( SPACE} MATH ■':GOSUB900  :  rem  159 

15  POKE36869,192  :rem  109 

20  PRINT" {3  down} {5  RIGHT} E RED} DO  YOU  WAN 

T  TO:"  :rem  186 

30  PRINT" (2  DOWN} {RIGHT} {CYN} ADDS 

{7  SPACES] {WHT} MULTIPLY"       ; rem  134 
40  PRINT" {CYN} {DOWN} ErigHT}SUBTRACT 

{3  SPACES} { WHT }&  DIVIDE"        :rem  74 
50  PRINT" {2  DOWN} {GRN} SLOW": PRINT" 

{2  D0WN){CYN)FAST{YEL,}":G=15iH=S 

: rem  107 
55  H=5  :G=15:GF=20  :reni  174 

60  Vl=37139iREM  DDR  FOR  SWITCH  UPDNLFTFIR 
E  :rem  37 

61  Rl  =37137  I  REM  P0RTAB2=UPr B3=DN; B4=LFT : 
B5=FIRE  :rem  141 

62  V2=37154:REM  DDR  FOR  RIGHT     irem  142 

63  R2=  37152 :REM  P0RTB;B7=  RIGHT   irem  64 

64  POKE37139,195:Jl=PEEK(37137):POKE37139 
,128  ;rem  15 
POKE37154,12  7:J2=PEEK(37152)AND128:POK 


65 

66 

70 
80 
81 
82 
83 
84 


E37154,255 

B=J10RJ2 

IF  B=  156THEN  90 

IFB=172THENH=5 

IFB=60THENH=14 

IFB=184THENG=15 :GF=20 

IFB=180THENG=18 :GF=10 


114 
131 
169 


:rem 
:reni 
;rem 
:rem  249 
;rem  246 
:rem  148 
:rein    147 


POKE781,G:POKE782,H:POKE783,0:SYS655  20 
:PRINT"Q"  :rem   170 

85  IP    OGOG    OR   OHOH    THENPOKE781 ,0G  :P0KE7 
82,OH:POKE783,0:SYS65520:PRINT"    " 

:rem   135 

86  OG=G:OH=H:GOTO60  ; rem  183 
90  L=1:SC=0:S=3  : rem  93 
100  PRINT" {CLR} 13  DOWN} {2  RIGHT} {WHT}P0SI 

TION  GUN  OVER{7  SPACES } CORRECT  ANSWER 

"  :rem  228 

105  BN=0:BO=0:B=0:SH=0:SYS13123  irem  41 
110  PRINT" {4  DOWN} [4  RIGHT}AND  SHOOT  UFO" 

:reni  101 
120  PRINT" {3  DOWN} {4  RIGHT} {WHT}BE  CAREFU 

L  NOT {8  SPACES) TO  WASTE  SHOTS": rem  66 
130  PRINT" {2  DOWN} {3  RIGHT} { CYN ) ENTERING 

{SPACE} LEVEL" ;L  s rem  216 

135  GOSUB  1000  :rem  218 

140  FORI=1TO5000:NEXT  : rem  20 

141  PRINT" { CLR} {11  SPACES}{WHT}SC0RE{RED) 
"SC"{HOME] {BLU}";  :rem222 
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142 

150 
160 
170 
175 
180 

190 
200 
210 
220 
230 


240 
250 
260 
265 

270 
275 
277 
280 


285 

286 
290 

293 
295 
300 
310 
320 
500 
510 
520 
525 
526 

530 
550 
600 
601 

602 
603 


610 

700 
710 
720 
730 
750 


760 
800 

805 

820 


F0RI=1T0S : PRINT " { RIGHT } A " ; : NEXT 

:rem  200 
A=INT(RND(0)*4+1)+4*{L-1)  :rem  243 
B=INT(RND(0)*4*L+1)  :rein  231 

IFH=5THENC=A+B:GOTO180         srem  74 
C=A*B  trem  202 

A$=STR${A) :B$=STR5{B) :C$=STR${C) 

:reni  6 
RP=INT ( RND( 0 ) *4 ) +1 
IFRP=1 THENANS=A : A$= " 


?" 

IFRP=2THENANS=B;B$="  7" 

?'■ 


:rem  212 
:rem  31 
srem  35 
IFRP>2THENANS=C:C$="  ?"  : rem  39 
PRINT"  {HOME}  {2  DOVfN}  {4  RIGHT}  ";:  IFH=5 
THENPRINTA?"  +"B$"  ="C$:GOTO250 

:rem  181 
PRINTA$"  X"B$"  ="C$  :rem  114 

IFANS>90THENDEL=10:GOTO270  : rem  93 
IFANS>20THENDEL=5!GOTO270  : rem  43 
DEL=INT( (ANS/10)+1)  : rem  10 

DT=INT(RND(0)*4)+1  : rem  201 

PRINT" {HOME} (21  DOWN}"  : rem  231 
Sysi2288  trem  164 

F0RI=1T04:CH(I)=ANS+(I-DT)*DEL:PRINTT 
AB((I*4)-2)STR$(CH(I)),'"{2  LEFT}";  :NE 
XT  :rem  92 

FORI=1T04 : IPCH( I ) =ANSTHENPOKE901 , I-l 

;rem  236 
NEXT :POKE880, 255  :rem  176 

W=PEEK(868) :SYS  12307 :FORQ=1TOGF*10 sN 
EXT; IF  PEEK{900)THEN300  ; rem  47 
SYS12845  :rem  161 

GOTO  290  srem  116 

X=PEEK{900) :SH=SH+1  srem  64 

IFX=3THEN500  srem  175 

IFX=2THEN600  : rem  176 

IFW=0THENB=25  srem  253 

IFW=1THENB=10  srem  249 

IFW=2THENB=5  srem  207 

BN=BN+B  srem  102 

SC=SC+B:PRINT"{H0ME} [8  DOWN} 
{10  RIGHT}"B  srem  125 

IFBN>=50THENL=L+1;GOTO700  srem  1 
GOTO  140  I  rem  104 

S=S-l!lFS=0THEN800  srem  39 

PRINT" {HOME) {BLU} {8  DOWN} " : A$="KEEP  T 
RYING";G0SUB  900  srem  151 

PRINT" {2  DOWN}":A$="I  KNOW  YOU  CAN  DO 
IT"!G0SUB  900  srem  133 

PRINT" {2  DOWK}":A$="THE  ANSWER  WAS":G 
OSUB900 : PRINT" { PUR} {DOWN} " : A$=STR5 (AN 
S):GOSUB900  srem  210 

FORI=1TO1000:NEXT:GOTO140  srem  26 
B0=INT(BN/SH+.5)  :rem  137 

IFBO>=25THENBO=50:GOTO750  srem  11 
IFBO>=10THENBO=25;GOTO750  srem  8 
GOTO  760  srem  112 

PRINT" {home} {14  DOWN} {5  RIGHT }b{CYN}0 

{grn}n{yel}u{blu}s"bossc=sc+bo 

srem  240 
FORI=1TO5000:NEXT:GOTO  100  srem  32 
PRINT"{CLR}{3  down} {6  RIGHT} {CYN}SC0R 
E  ";SC  srem  201 

PRINT" {3  DOWN} {6  RIGHT } {BLU } GAME  OVER 

srem  196 
PRINT" {5  DOWN} {4  RIGHT } {CYN} PRESS  ANY 
KEY  {DOWN} {8  SPACES}T0  PLAY  AGAIN" 

srem  123 


900  X=LEN(A$) :A$=A$+"{2  SPACES}"  srem  115 
910  FORI=1TOX+10-INTCx/2+.5) sP0KE211 , 21-1 
sPRINTMlD$(A$,l,I) ;  srem  249 

915  FOR  T=1TO60:NEXTT;NEXTI  srem  224 
920  RETURN  srem  123 

999  END  srem  130 

1000  POKE3687a, 15s 32=36876 SP0KE36877, 127 

srem  218 
1005  RESTORE  srem  234 

1010  READ  P,LE  srem  235 

1020  IF  P=-5THENPOKES2, 0s RETURN  srem  154 
1025  P0KES2,P  srem  248 

1030  FOR  T=  1  TO  LE*2sNEXT  srem  118 
1040  GOTO1010  srem  192 

1050  DATA  173,50,127,50,173,50,192,200,12 

7,100,192,200,127,100  srem  205 
1060  DATA  192,200,192,50,189,50,181,50,17 

3,100,173,50,192,300,-5,-5   srem  201 

Programmer's  Notes: 
VIC  Version 

The  VIC-20  version  of  "Missile  Math"  re- 
quires at  least  an  8K  expander.  To  mat;e  it 
easier  to  enter  this  version,  the  machine  lan- 
guage portion  of  the  program  has  been  listed 
in  MLX  format.  To  enter  Missile  Math,  you 
must  enter  Program  2  using  the  VIC  MLX 
Program  elsewhere  in  this  issue.  The 
starting  address  is  12288  and  the  ending 
address  is  13295.  After  you  have  entered 
and  saved  Program  1,  enter  Program  3  as 
you  would  a  normal  BASIC  program  and 
save  it  to  tape  or  disk. 

To  run  Missile  Math,  you  must  first 
enter  these  POKEs. 

POKE  43,l:POKE  44,24:POKE  641,0:POKE 
642,24:POKE  6144,0 

Type  NEW  and  load  Program  2,  bypassing 
the  normal  relocator  by  adding  ,1  to  the 
LOAD  command.  Here's  how  your  LOAD 
command  should  look: 

From  tape: 

LOAD  "filename"  ,1,1 
From  disk: 

LOAD  "filename"  ,8,1 
Now  type  NEW,  then  load  and  run  Program 


Program  4:  64  Missile  Malh 

Refer  to  the  "Automatic  Proofreader"  article  before  t/ping  this 
program  in, 


0  GOSUB    1000 

1  V=54272:FORI=0TO24 


113 


830  POKE198,0 
835  WAIT  198,1 
840  G0T05 


s  rem  200 

srem  212 

srem  10 


srem 
POKEV+1 , 0  s  NEXT 

srem  176 
5  POKE  53280, 0SPOKE  53281,0       srem  138 
10  PRINT"{CLR}  {4  DOWNHbLU}":AS="MISSILE 
{SPACE) MATH "sGOSUB900s GOSUB  950:rem  51 
PRINT" {down! {9  RIGHT} USE  JOYSTICK  IN  P 
CRT  #2"  srem  219 

PRINT" {3  DOWN] {13  RIGHT } {RED } PLEASE  SE 


15 


20 
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LECTs"  I  rem  175 

30  PRINT" {2  DOWN} {5  RIGHT ){ CYN} ADDITION  & 

{7  SPACES }E73MULTIPLICATI0N"  : rem  192 
40  PRINT"  f5  RIGHTH  CYN}  SUBTRACT  I  ON 

[9  SPACES  }E7?6:  DIVISION"  :  rem  216 
50  PRINT" {2  DOWN) {GRN J  SLOW": PRINT" 

{2  DOWNli63FAST{YEL}":G=10:H=9:POKE830 

,H:POKE831,G  s rem  92 

60  X=PEEK ( 56320 ) :J=XAND15:B=XAND16: rem  14 
70  IFB=0THEN90  : rem  61 

80  IFJ=11THENH=9  : rem  205 

81  IFJ=7THENH=29  ! rem  213 

82  IFJ=14THENG=ia  i rem  1 

83  IFJ=13THENG=21  : rem  251 

84  P0KE828,H:P0KE829,G!SYS49152   i rem  110 

85  GOTO60  :rem  12 
90  L=1:SC=0;S=3  t rem  93 
100  POKE  53269,0:PRINT"{CLR} {8  DOWN} 

{4  RIGHT} Ea? POSITION  GUN  OVER  CORRECT 

ANSWER"  I  rem  215 

105  BN=0;BO=0;B=0:SH=0  : rem  246 

110  PRINT"{2  D0WN}{14  RIGHT}AND  SHOOT  UFO 

rrem  101 
120  PRINT"! 3  DOWN} {5  RIGHT }E3EBE  CAREFUL 

{ SPACE }N0T  to  waste  SHOTS"    : rem  240 

130  PRINT" {2  down} {12  RIGHT ){ PUR ] ENTERING 

LEVEL" ;L  ! rem  218 

135  GOSUB  950  : rem  183 

140  FORI=1TO3000:NEXT  : rem  18 

141  PRINT" tCLR} {30  SPACES }{ GRN } SCORE { RED} 
"SC"{home} {blu}";  s rem  247 

142  F0RI=1T0S : PRINT " { RIGHT } A" ; iNEXT 

I  rem  200 
150  A=INT(RND(0)*4+1)+4*(L-1)  : rem  243 
160  B=INT(RND(0)*4*L+1)  : rem  231 

170  IFH=9THENC=A+B:GOTO180  : rem  78 
175  C=A*B  :rem  202 

180  A9=STR? (A) :B$=STR$(B) !C$=STR$(C) 

;  rem  6 
190  RP=INT{rnD(0)*4)+I  trem  212 

200  IFRP=1THENANS=A:A$="  ?"  : rem  31 
210  IFRP=2THENANS=B;B$="  7"  i rem  35 

220  IFRP>2THENANS=C:C$="  7"  :  rem  39 

230  PRINT" {home} {4  DOWN} {15  RIGHT} {PUR} " ; 

:IFH=9THENPRINTA9"  +"B$"  ="C$!GOTO250 

:rem  182 
240  PRINTA$"  X"B$"  ="C$  :  rem  114 

250  IFANS>90THENDEL=10:GOTO270  : rem  93 
260  IFANS>20THENDEL=5iGOTO270  j rem  43 
265  DEL=INT( (ANS/10)+1)  : rem  10 

270  DT=INT(rnd(0)*5)+1  ! rem  202 

275  PRINT" {home} {21  D0WN]{YEL}"  :rem  133 
280  F0RI=1T05 : CH (I ) =ANS+ ( I-DT ) *DEL : PRINTT 

AB(I*5)CH(I) ? :NEXT  : rem  135 

285  F0RI=1T05 : IFCH( I )=ANSTHENPOKE901 , l-l 

:rem  237 

286  NEXT  rrem  223 
290  SYS49195  : rem  166 
300  X=PEEK{900) :SH=SH+1  : rem  64 
310  IFX=2THEN500  : rem  174 
320  IFX=1THEN600  : rem  175 
500  W=PEEK(833):1FW=0THENB=25  : rem  223 
510  IFW=1THENB=10  s rem  249 
520  1FW=2THENB=5                   trem  207 

525  BN=BN+B  s rem  102 

526  SC=SC+B: PRINT" {home} {18  DOWN] 

{17  RIGHT} {GRN}"B  : rem  16 

530  IFBN>=50THENL=L+ljGOTO700  j rem  1 
550  GOTO  140  srera  104 

600  S=S-1  :rem  215 


601  PRINT" {HOME} E 73 {9  DOWN} " :A?="KEEP  TRY 
ING": GOSUB  900  : rem  35 

602  PRINT" {3  DOWN}"!A$="I  KNOW  YOU  CAN  DO 

IT": GOSUB  900  : rem  150 

603  PRINT" {2  DOWN} ":A$=" THE  ANSWER  WAS : " s 
GOSUB900:PRINT"{PUR}":A$=STR$(ANS) sGO 
SUB900  -rem  251 

610  GOSUB950:IFS=0THEN800  : rem  5 

620  GOTO140  J  rem  102 

700  B0=INT(BN/SH+.5)  ; rem  137 

710  IFBO>=25THENBO=50rGOTO750  : rem  11 
720  IFBO>=10THENBO=25:GOTO750  s rem  8 
730  GOTO  760  -rem  112 

750  PRINT" {HOME} {14  D0WN}E14  RIGHT}E33B 

{cyn]o{grn}n{yel}u{blu}s{red] I {WHT}"a 

0:SC=SC+BO  :rem  230 

760  FORI=1TO5000:NEXT:GOTO  100  : rem  32 
800  POKE53269,0 SPRINT" !cLR} {3  DOWN] 

{15  RIGHT] {CYN}SCORE: {pur} ";SC 

J  rem  114 
805  PRINT" {7  DOWN} {18  RIGHT] {BLU } GAME" 

: rem  40 
810  PRINT" l3  DOWN} {18  RIGHT ]OVER" : rem  227 
820  PRINT" {5  DOWN] {6  RIGHT} {GRN } PRESS 

{YEL}ANY  KEY{GRN}  to  play  AGAIN" 

I  rem  223 
830  POKE198,0  srem  200 

835  WAIT  198,1  ; rem  212 

840  G0T05  :rem  10 

900  X=LENCA$):A$=A$+"{24  SPACES }": rem  115 
910  FORI=lTOX+19-INT(x/2+.5) : P0KE211 , 39-1 

!PRINTMID?(A$,1,I) r jNEXT  I    : rem  205 
920  RETURN  trem  123 

950  V=542 72 ; POKEV+24 , 15 : POKEV+5 , 0 : POKEV+6 

,240  trem  116 

955  POKEV+1 , 25 : POKEV , 30 : POKEV+4 ,33: FORI =1 

TO300:NEXTsPOKEV+4,32  trem  7  5 

960  POKEV+1, 33 iPOKEV, 135: POKEV+4, 33 :FORI= 

lTO900tNEXT; POKEV+4, 32        s rem  130 
970  POKEV+1, 25 iPOKEV, 30 :P0KEV+4, 33 :FORI=l 

TO400: NEXT: POKEV+4, 3 2  trem  73 

980  POKEV+1, 33  I POKEV, 135 t POKEV+4, 33 :FORI  = 

lTO100tNEXT I POKEV+4, 32        trem  124 
990  POKEV+1, 29 t POKEV, 223  t POKEV+4 , 33 : FORI= 

ITOl 00: NEXT: POKEV+4, 3 2        trem  128 
992  POKEV+1 , 28 : POKEV, 49 : POKEV+4 , 33 : F0RI=1 

TO 100: NEXT: POKEV+4, 3 2         trem  87 
994  POKEV+1 , 25  t  POKEV, 30 : POKEV+4, 33 ;FORI=l 

TO700:NEXT: POKEV+4, 32  trem  82 

996  FORI=lTO100tNEXT  trem  243 

998  POKEV+1 , 25 ; POKEV, 30s POKEV+4, 33 :P0RI=1 
TO360:NEXT: POKEV+4, 32  trem  88 

999  POKEV+1 , 33 : POKEV ,135s  POKEV+4 , 33 : FORI= 
1TO600 : NEXT ; POKEV+4 , 3 2  t  RETURN : rem  165 

1000  PRINT" {cLR]{ 10  DOWN} {8  RIGHT]L0ADING 

MACHINE  LANGUAGE" 1 1  =  49152 tCK=0 

:rem  232 
1010  READ  At  IF  A=256  THEN  10  30  trem  246 
1020  POKE  I,A:CK=CK+A:I=I+1:G0T0  1010 

s  rem  65 
1030  IFCK<>80338THENPRINT"ERROR  IN  DATA": 
STOP  :rem  28 

1040  RETURN  :rem  165 

1050  DATA  174,63,3,172,62,3  : rem  41 
1060  DATA  24,32,240,255,169,32  trem  191 
1070  DATA  32,210,255,174,61,3  trem  136 
1080  DATA  172,60,3,24,32,240  : rem  83 
1090  DATA  255,169,209,32,210,255  trem  43 
1100  DATA  173,61,3,141,63,3  trem  31 
1110  DATA  173,60,3,141,62,3        trem  30 
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Notes  On  The 
Commodore  64,  Tl, 
Apple,  And  IBM  PC/PCjr 
Versions 

Instructions  for  all  these  versions  are  in- 
cluded within  the  programs  themselves.  The 
64  version  (Program  4)  requires  a  joystick  in 
port  2.  The  TI-99/4A  version  (Program  5) 
requires  Extended  BASIC  and  may  be  played 
with  either  a  joystick  or  the  keyboard.  The 
Apple  version  (Program  6)  requires  a  paddle 
controller.  The  IBM  PC/ PCjr  version  (Pro- 
gram 7)  is  controlled  from  the  keyboard. 


96,32,106,194,169,2  ; rem  149 

141,64,3,169,0,141  : rem  84 

65,3,169,1,141,66  : rem  45 

3,169,100,141,67,3  : rem  87 

169,250,141,248,7,169  : rem  0 

251,141,249,7,169,252  :rem  252 

141,250,7,169,7,141  : rem  145 

21, .208, 169, 6, 141, 39  : rem  150 

208,169,8,141,40,208  : rem  191 

169,15,141,41,208,169  : rem  245 

0,141,23,208,169,2  ; rem  82 

141,29,208,169,255,141  : rem  41 

27,208,141,68,3,169  : rem  151 

0,141,70,3,173,30  :rem  28 

208,169,0,162,24,157  s rem  197 

0,212,202,224,255,208  : rem  231 

248,169,15,141,24,212  : rem  246 

173,61,3,201,21,208  :reml35 

8,169,15,141,77,3  : rem  47 

76,164,192,169,22,141  : rem  249 

77,3,32,227,192,32  : rem  94 

54,193,32,160,193,32  :rem  193 

230,193,32,218,193,173  : rem  40 

68,3,208,235,169,17  : rem  157 

141,5,212,141,6,212  : rem  129 

169,129,141,4,212,169  :rem252 

1,141,1,212,169,30  :rem  82 

141.76.3.32.218.193  : rem  150 
206,76,3,208,248,169  : rem  203 
0,170,157,0,212,232  :reml25 
224,25,208,248,96,174  s rem  255 
64,3,189,82,194,141  : rem  155 
0,208,169,200,141,1  :rem  130 
208,173,67,3,141,2  irem93 
208,173,66,3,10,141  : rem  140 
16,208,174,65,3,189  :reml59 
102,194,141,3,208,173  : rem  242 
70,3,201,1,240,14  srera  29 

174.64.3.189.82.194  : rem  159 
141,4,208,169,200,141  : rem  233 
5,208,173,76,3,240  : rem  94 
20,206,76,3,173,76  : rem  97 
3,10,10,141,1,212  :rem  17 
201,0,208,5,169,128  : rem  142 
141,4,212,96,173,67  : rem  152 
3,208,3,206,66,3  : rem  250 
206,67,3,173,66,3  s rem  54 
24,109,67,3,201,0  : rem  40 
208,23,238,65,3,169  : rem  151 


1120 

DATA 

1130 

DATA 

1140 

DATA 

1150 

DATA 

1160 

DATA 

1170 

DATA 

1180 

DATA 

1190 

DATA 

1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 

1450 

DATA 

1460 

DATA 

1470 

DATA 

1480 

DATA 

1490 

DATA 

1500 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610  DATA  1,141,66,3,169,80  s rem  44 

1620  DATA  141,67,3,169,0,141  s rem  91 

1630  DATA  70,3,169,8,141,40  : rem  44 

1640  DATA  208,173,0,220,141,69  : rem  191 

1650  DATA  3,41,8,240,18,173  : rem  44 

1660  DATA  69,3,41,4,208,21  : rem  251 

1670  DATA  173,64,3,240,16,206  : rem  145 

1680  DATA  64,3,76,137,193,173  : rem  162 

1690  DATA  64,3,201,16,240,3  s rem  38 

1700  DATA  238,64,3,173,70,3  : rem  45 

1710  DATA  201,1,208,15,206,5  : rem  80 

1720  DATA  208,173,5,208,201,30  : rem  186 

1730  DATA  208,5,169,2,141,70  : rem  95 

1740  DATA  3,96,173,69,3,41  : rem  6 

1750  DATA  16,201,0,208,36,173  : rem  139 

1760  DATA  70,3,208,31,169,1  : rem  45 

1770  DATA  141,70,3,173,64,3  ; rem  45 

1780  DATA  74,74,141,71,3,169  : rem  109 

1790  DATA  17,141,5,212,141,6  : rem  91 

1800  DATA  212,169,129,141,4,212  : rem  239 

1810  DATA  169,10,141,76,3,173  : rem  146 

1820  DATA  70,3,201,1,240,5  s rem  234 

1830  DATA  169,5,141,71,3,96  : rem  55 

1840  DATA  174,77,3,160,0,136  : rem  97 

1850  DATA  208,253,202,208,250,96  : rem  44 

1860  DATA  173,30,208,141,72,3  : rem  143 

1870  DATA  41,1,141,73,3,173  : rem  42 

1880  DATA  72,3,41,2,74,141  : rem  251 

1890  DATA  74,3,173,72,3,41  i rem  2 

1900  DATA  4,74,74,141,75,3  irem  255 

1910  DATA  173,73,3,45,74,3  ; rem  0 

1920  DATA  201,1,208,3,76,31  : rem  36 

1930  DATA  194,173,74,3,45,75  : rem  111 

1940  DATA  3,201,1,208,3,76  : rem  245 

1950  DATA  52,194,96,169,253,141  : rem  9 

1960  DATA  248,7,169,1,141,21  : rem  101 

1970  DATA  208,169,1,141,132,3  : rem  145 

1980  DATA  169,0,141,68,3,96  : rem  62 

1990  DATA  173,133,3,205,71,3  ! rem  96 
2000  DATA  208,16,169,253,141,249   : rem  40 

2010  DATA  7,169,2,141,132,3  ; rem  33 

2020  DATA  169,0,141,68,3,96  : rem  48 

2030  DATA  169,1,141,40,208,96  : rem  143 

2040  DATA  70,70,70,70,110,110  i rem  124 
2050  DATA  110,110,150,150,150,150  : rem  57 
2060  DATA  190,190,190,190,230,230  : rem  80 
2070  DATA  230,230,100,133,167,200  : rem  65 

2080  DATA  162,0,189,118,194,157  : rem  0 

2090  DATA  128,62,232,208,247,96  ; rem  1 

2100  DATA  0,0,0,0,0,0  srem  217 

2110  DATA  0,24,0,0,24,0  srem  70 

2120  DATA  0,24,0,0,24,0  j rem  71 

2130  DATA  0,24,0,0,24,0  : rem  72 

2140  DATA  0,24,0,0,24,0  : rem  73 

2150  DATA  0,60,0,0,60,0  : rem  74 

2160  DATA  0,60,0,0,60,0  :rem  75 

2170  DATA  1,255,128,15,255,240  : rem  192 

2180  DATA  127,255,254,127,0,254  : rem  247 

2190  DATA  112,0,14,96,0,6  : rem  192 

2200  DATA  96,0,6,192,0,0  : rem  139 

2210  DATA  0,0,0,0,0,0  :rem  219 

2220  DATA  0,0,0,0,0,0  : rem  220 

2230  DATA  0,0,255,0,1,255  : rem  182 

2240  DATA  128,7,255,224,31,255  : rem  196 
2250  DATA  248 , 255 , 255 , 255 , 255 , 255 : rem  105 
2260  DATA  255 , 255 , 255 , 255 , 255 , 255 ; rem  104 

2270  DATA  255,31,255,248,7,255  : rem  206 

2280  DATA  224,1,255,128,0,255  : rem  142 

2290  DATA  0,0,0,0,0,0  ; rem  227 

2300  DATA  0,0,0,0,0,0  : rem  219 

2310  DATA  0,164,0,24,0,0  : rem  125 
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2320  DATA  24,0,0,0,0,0 

2330  DATA  0,0,0,0,0,0 
2340  DATA  0,0,0,0,0,0 
2350  DATA  0,0,0,0,0,0 
2360  DATA  0,0,0,0,0,0 
2  3  70  DATA  0,0,0,0,0,0 
2380  DATA  0,0,0,0,0,0 
2390  DATA  0,0,0,0,0,0 
2400  DATA  0,0,0,0,0,0 
2410  DATA  0,0,0,0,0,247 
2420  DATA  0,0,0,0,32,0 
2430  DATA  40,128,64,0,136,0 
2440  DATA  2,2,0,130,33,128 
2450  DATA  2,18,196,16,168,0 
2460  DATA  17,11,0,1,169,0 
2470  DATA  1,45,72,17,146,8 
2480  DATA  0,136,144,0,8,8 
2490  DATA  8,120,0,2,24,128 
2500  DATA  16,8,16,0,0,32 
2510  DATA  2,3,0,1,32,0 
2520  DATA  0,0,0,193,256 

Program  5:  TI-99/4A  Missile  Math 


: rem  19 

: rem  222 

;rem  22  3 

:rem  224 

:ren!  225 

:rem  226 

I  rem  227 

:rem  228 

: rem  220 

: rem  74 

: rem  19 

: rem  34 

:rem  233 

; rem  50 

: rem  189 

:  rem  1 

: rem  199 

: rem  243 

:rem  136 

:rem  25 

! rem  93 


90  RE«  EXT 
100  DIM  NO 
0  :  :  G 
CALL  K 
K, S)  :  : 
1,X,Y) 
(K=69) 
RETURN 
FOR  1  = 
:  :  DIS 
SOUND ( 
FOR  1  = 
i I ) f NO 
RN 

E«="MI 
CALL  C 
CALL  S 
Y=12  : 
30  ;  : 
GOSUB 
NEXT  T 
FOR  1  = 
, 25-1 ) 
TO  13 
PLAY  A 
BOSUB 
CALL  C 
PRINT 
OSITIO 
PRINT 
O"  :   : 
PRINT 
BAR.  "  I 
UL  NOT 
HOTS- " 
PRINT 


110 


120 
130 


140 


150 
160 
170 
1Q0 

190 

200 


210 
220 


»30 


240 


ENDED  BASIC  REQUIRED 
TE  (  14)  , DUR < 14)  i  :  GOSUB  99 
OTO  150 

EY(0,K,BT)::  CALL  KEY C 1 , K 
IF  ST=0  THEN  CALL  JOYST< 
ELSE  X=<K=a3) -<K=68) : :  Y= 
-tK=8B) 

1  TO  L  j:  B4=SEB« <E4, 1 , I ) 
PLAY  AT(Y,X-I):B*  ::  CALL 
-10, -6, 4)  :: NEXT  I  :: RETURN 
1  TO  14  :s  CALL  SOUND(DUR 
TE<I),3)::  NEXT  I  ::  RETU 

SSILE  MATH- 
LEAR 
CREENC5) 

:  X=^25  ::  L=16  ::  GOSUB  1 
FOR  T=l  TO  100  ::  NEXT  T 
]40  ::  FOR  T=l  TO  300  :: 

16  TO  24  ::  DISPLAY  AT;12 
: B*  : :  NEXT  I   : :  FOR  1=2 
::  B*=SE6* (E«, I , 12) : :  DIS 
T  C 12,  1 )  : B*  :  :  NEXT  I 
840 

LEAR  ::  CALL  SCREEN<3>:: 
"TO  PLAY;";   ;  a     PRINT  "P 
N  GUN  OVER  CORRECT":   :   :: 
"ANSWER  AND  SHOOT  THE  UF 

"WITH  FIREBUTTON  OR  SPACE 
:  :  :  : :  PRINT  "BE  CAREF 
TO  WASTE":  ;  ::  PRINT  "S 


"FIRE  OR  <ENTER>  TO  START 


250  GOSUB  110 
)THEN  250 
260  LEVEL=1  ::  SC,HIT,GUN=0  :; 
:s  PT<1)=25  ::  PT(2)=10  :: 
3) =5  : :  SPR=136 
270  CALL  CLEAR  ::  CALL  SCREEN ( 1 
DISPLAY  AT ( 12,7) : "ENTERING 
EL";LEVEL  :;   GOSUB  140  ::  F 
=1  TO  100  ; ;  NEXT  T 
280  PB,SCL=0 


IF  <KK<  >18)  »  (K<  >13 


NP  =  3 

PT  < 

1  )  :  : 

LEV 

OR  T 


290 

300 
310 

320 
330 

340 

350 

360 
370 

380 

390 

400 

410 

420 

430 
440 
450 
460 


470 
480 

490 
500 

510 

520 

530 
540 


:   A  = 
B=IN 


RP=INT (RND«4) +1 
ANS=A  ;:  A*=CHR*<6 


RP=2  THEN  ANS=B 


B*=CHR* (6 


ANS  =  C 


RANDOMIZE  ::  Y0=4  ::  PF= 

INT(RND*4+1)+4*(LEVEL-1) 

T (RND»4*LEVEL+  1  ) 

IF  MENU=1  THEN  C=A+B  ELSE  C=A«B 

A4=STR«(A):s  B*=STR*<B):;  C*=ST 

R*  (C) 

RANDOMIZE  : : 

IF  RP=1  THEN 

3) 

IF 

3) 

IF  (RP=3) + (RP=4) THEN 

*  =  CHR*  <63) 

CALL  CLEAR  it      CALL  SCREEN(15) 

D*="  +  "  :;   IF  MENU=2  THEN  D«=" 

DISPLAY  AT (4 , 10) : A*; Dt ; B*; "  =  " 

FOR  1=1  TO  NP  : : 

«2+l ,112)::  NEXT 
DISPLAY  AT ( 1 , 17) 

PB=PB+1 
IF  ANS>90  THEN  DEL 
40 

IF  ANS>20  THEN  DEL 
0 

DEL=INT ( CANS/ 10) +1 ) 
RANDOMIZE  ::  DT= I NT ( RND »5) +1 


CALL 

I 

"SCORE: 


■10 


HCHAR (1,1 


SC 


GOTO  4 


SOTO  44 


X 1=256 

FOR  1=1 

) «DEL  : 

Y  AT<24 

NEXT  I 

CALL  SPRITE<#2 

ta  +  4) 

SHT=0  : :  SP=14 

X2  STEP  -DX  : : 

28, SP, Y0»B, X0) 

CALL  SOUND(-10 

1  10  : 

=  6)  *5 


:   X2=l 

TO  5  ::  CH < I ) = ANS+ ( I -DT 
L0K<I>=5«I-1  ::  DISPLA 
LOK ( I)  >  : STR*  <CH ( I)  )  ;  :  : 


96, 6,  150, LOK  <PF) 


: :   FOR  X0=X 1  TO 
CALL  SPRITE  <#1  ,  1 
:  SP=24-SP 
2000,3) : ;  GOSUB 
PF=PF+S6N (X) : :  PF=PF+(PF 
(PF=0>«5  ::  CALL  LOCATE C# 


2, 150, LOK <PF) *8+4) : :  GOSUB  110 

IF  ( <KK=1B) + (K=32) ) * (SHT=0) THEN 
CALL  SPRITE (#3, 124, 2, 150, LOK (P 

F) «a+4, -20, 0) : :  CALL  SOUND(200, 

-6,3)::   SUN=1   ::   SHT=1 
CALL  POSITION<#3,DR,DC) : :   IF  <D 
R< 10) + (DR>192) THEN  CALL  DELSPRI 
TE(«3) 

CALL  COINC (#1 , #3, 15, C) : !   IF  C  T 
HEN  GOSUB  730 

IF  HIT=1  THEN  X0=X2 

NEXT  X0  ::   IF  HIT=1  THEN  HIT=0 

::  GOTO  550  ELSE  CALL  DELSPRITE 

(#3)::  GUN=0  ::  GOTO  570 

550  IF  <SCL>=50)THEN  LEVEL=LEVEL+ 1 
::  CALL  DELSPR I TE ( ALL ) : :  GOTO  2 


560 

570 

580 

590 

600 

610 
620 


70 

CAL 

0 

Y0  = 

IF 

)  :  : 

FOR 

L  L 

CAL 

HEN 

NEX 

FOR 


L  DELSPRITE <«1 , #3) 


GOTO 


Y0  +  4 

Y0<13  THEN  CALL  DELSPRITE(«1 

GOTO  480 

X0=X1  TO  X2  STEP  -DX  ::   CAL 
0CATE<*1 , 150, X0) 
L  COINC<*l , #2, 10, C) : :  IF  C  T 

CALL  DELSPRITE (#2) : :   X0=X2 
T  X0 

1=3  TO  15  STEP  3  ::  SPR=276 
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-SPR  ;;   CALL  5PR 1 TE ( # 1 , SPR , I + 1 ,  890  PRINT  TAB « 7 );" SUBTRACT "; TAB C 1 B ) 

150, LOK  (PF)  *a+4)  :  :  CALL  SCREEN  ;"DIVIDe":  i      :   : 

(I)::  CALL  S0UND(-1  0+1*10,-5,3)  900  PRINT  "SLOW":   :   :   :   ::  PRINT  "F 

: ;   NEXT  I  AST" :   ; 

630  CALL  DELSPRITE<*1)  910  FOR  J=17  TO  21  STEP  4  : :      FOR  CO 

640  CALL  HCHAR ( 1  ,  NP*2+1  ,42)  :  :  FOR  I  L=ll  TO  13  ::  CALL  VCHAR(J,COL, 

=1  TO  30  STEP  3  ::   FOR  T= 1  TO  3  120,3)::  CALL  VCH AR C J , CQL+ 1 1 , 1 2 

0  ::   NEXT  T  ::   CALL  SDUND(10,22  0,3)::  NEXT  COL  ::  NEXT  J 

0,1)::  NEXT  I  ::  CALL  HCHAR (1 , N  920  FDR  J=ia  TO  22  STEP  4  ::  CALL  H 

p, 2+1, 32)  CHAR  (J ,  12, 32)  :  :  CALL  HCHAR(J,23 

650  NP=NP-1   ::  FOR  T=l  TO  5  : :  DISP  ,32)::   NEXT  J 

LAY  AT  (24,L0K(DT)  )  :  *'  {3  SPACES!"  930  KHAR=122  ::  PX  =  12  ::  PY=18  ::  M 

;::   CALL  SOUND ( 30 , 220 . 3 ) : :   CALL  ENU= 1   ::   DX=9 

SOUND<40,440, 3) : :   DISPLAY  AT C 2  940  CALL  HCH AR < P V , P X , KM AR ) : :  GOSUB 

4,L0K (DT) -1 ) ; AN5:  110  ::  KHAR= 1 54-KHAR 

660  CALL  SOUND (30, 220, 3) : :  NEXT  T  950  IF  <( SON ( X ) =0 )«( SGN t Y > =0 )) THEN 

670  E«="KEEP  TRYING  !"  si  X=25  ::  Y  970 

=12  ::  L=16  ::  GOSUB  130  960  CALL  HCH AR ( P Y , PX , 32 ) ; :   IF  <SeN( 

680  E*="I  KNOW  YOU  CAN  DO  IT   I"  ::  X)<>0)THEN  riENU  =  3-MENU  ::  PX  =  35 

X=26  :;  L=22  ::   Y=14  ::   GOSUB  1  -PX  ELSE  PY=40-PY  ::  DX=27-DX 

30  <?70  IF  (KK=ia)  +  (K=13)  THEN  RETURN  EL 

690  GOSUB  140  :;   IF  NP=0  THEN  700  E  3E  940 

LSE  290  980  REM  DEFINE  CHARS,  COLORS,  &  HUS 

700  DISPLAY  AT < 16,6) : "FINAL  SCORE  "  ICAL  SCORE 

; SC  ::  DISPLAY  AT (  1 8 , 9 >  :  "  PLAY  A  990  CALL  CHAR  (  1 20 , RPT*  ( " F "  ,  1 6 )  ,  1 1 2 , 

GAIN?"   ::   DISPLAY  AT  (  20 , 4 )  :  "  ( < F  " 0000 1 83C7E7E 1 B3C " ,  1 22 ,  " 8 1 4224 1 

IRE>  OR  PRESS  'Y')"  8182442B1") 

710  GOSUB  110  ::   IF   (  KK  <  >  1  8  )  «  <  K089  1000  CALL  CHAR  (  96  ,"  0000000003030303 

)THEN  710  ELSE  210  0303030F3F3F 1 8 1 8 " &RPT* t " 0 " , 22 ) 

720  REM  CHECK  COLLISION  ?< "  C0F0F06060 "  )  :  :  REM  BASE 

730  IF  ANS  =  CH  (PF  )  THEN  CALL  DELSPRIT  1010  CALL  CHAR  (  1  24  ,  RPT*  C  "  0  "  ,  1  1  )  !(RPT 

E<#3);:  GOSUB  770  ::  HIT=1   ::  G  * <  "  1 0 " , 6 ) &RPT*  (  "  0 " , 5 1  )  )  :  :  REM 

OTO  750  MISSILE 

740  CALL  COLOR (#1 , 2)  :  :  CALL  SOUND  (  1  1020  CALL  CHAR ( 1 36 ," 000020 1 00000002 

00,  147, 4, 587, 4,  294,  4,-1,3)::  CA  8005  1  030008  "  S<RPT«  (  "  0  "  ,  1  4  )  !<  "  C4C 

LL  COLOR  («  1  ,  1  4)  000AC0aa-'&RPTt  (  "0"  ,  12)  )  :  :  REM 

750  GUIM  =  0  ::   RETURN  EXPLOSION  1 

760  REM  DIRECT  HIT  1030  CALL  CHAR  (  1 4 0 ,  "  00 1 00 1 0000000S0 

770  FDR  1  =  10  TO  30  STEP  5  ::  SPR  =  27  00 1  00002  "  &RPT«  <"  0  ",  1  8  )  Sc  "  800400 

6-SPR  :;  CALL  SCREEN  (  I / 1 0  +  8 ):  :  00000002000000000");;  REM 

CALL  SOUND ( "100, -6, I ) : :  CALL  EXPLOSION  2 

SPR ITE <« 1 , SPR, 2+1 /4 ,  Y0*B,X0)::  1040  CALL  CHAR < 1 28 ," 000000000000 1 F7 

NEXT  I  FFFE6E67F1F  "&RPT*  (  "0"  ,  18)  S<"F8F 

780  CALL  SCREEN(15)::   I=Y0/4  ::   SC=  EFF67 67FEFS000000 " ) : :   REM  UFO 

SC  +  PT(I)::  SCL  =  SCL  +  PT  (  I  )  :  :   DISP  1050  CALL  MAGN I F Y  (  4 )  :  :  CALL  COLOR < 1 

LAY  AT ( 14, 9) s PT ( I ) : "POINTS"  1,13,1) 

790  IF   (SCL>=50) * (SCL/PB>20) THEN  DI  1060  FOR  1=1  TO  14  ::  READ  NOTE C 1 ) , 

SPLAY  AT<16.7);"50  BONUS  POINTS  DUR ( I ) : :  NEXT  I  ::   RETURN 

"   ::   SC=SC+50  ::  GOTO  820  1070  DATA  392,100,392,100,392,100,5 

800  IF   (SCL>=50) * (SCL/PB>= 10) THEN  D  23,900,392,100,392,100,392,100 

ISPLAY  AT<16,7):"25  BONUS  POINT  1080  DATA  523,100,466,100,440,100,3 

S"  ::   SC=SC+25  ::  GOTO  820  -       92,700,40000,100,392,360,523,6 

810  GOTO  930  00 

820  FOR  1=15  TO  3  STEP  -1  ::  CALL  S  1090  RETURN 

CREEN ( I ) : :  NEXT  I   ::  FOR  1=3  TO 

15  ;  :   CALL  SCREEN  (I  ):  :  NEXT  I  PrOgrQITI  6:  Apple  MiSSJIe  Math 
830  DISPLAY  AT ( 1 . 23) : SC; : :  FOR  1=1 

TO  3S0  ::  NEXT  I  ::  CALL  DELSPR  0   HOME  I  VTAB  lOl  HTAB  14l  PRINT  "LOAD 

ITE (ALL)::  RETURN  INGDATA" 

B40  CALL  CLEAR  ::  CALL  SCREEN(14):;  1   SGBUB  lOOO 

PRINT  TAB (6) ; "MISSILE  MATH  MEN  5   HOME 

U":  :   :   :  10   VTAB  4«A»  -  "MISSILE  MATH"i  GOSUB  9 

850  PRINT  "POSITION  BALL  WITH  JQYST  00 

ICK/":   :  11   PRINT 

860  PRINT  "ARROW  KEYS  AND  FIRE/ENTE  15   VTAB  6i  PRINT  "              USE  PAD 

R  TO":   :  DUE  0" 

870  PRINT  "SELECT  GAME.":   :  20   VTAB  S 

880  PRINT  "TO:":   :   ::   PRINT  TAB  (  7  )  ;  25   PRINT  I  PRINT  "          PRESS  SPACE 

"ADD  Si";  TAB  (  18)  ;  "MULTIPLY  &"  TG  SELECT" 
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26 


30 


40 


PRINT  I  PRINT  " 

TO  START" 
VTAB  15i  PRINT  " 

MULTIPLICATION" 


PRESS  RETURN 


ADDITION  tt 


PRINT  " 
SION" 
45  6  -  O 

VTAB  IS 
PRINT 


SUBTRACTION 


it   DIVI 


49 
50 


I  PRINT  "SLOW 


60 

70 
71 
72 
73 
74 
60 
90 
100 

110 
120 
130 
200 
205 

206 
210 

220 
230 

240 

250 

260 
270 

280 
290 

291 
292 
293 
294 

295 
300 
310 
320 
330 

335 
340 
350 
360 
370 
375 
380 


3S5 

3B6 
390 
395 
400 


IF  A*  =   CHR*  (13)  THEN  20 


THEN  80 

»  4  THEN  O  ■  0 


3 

2  THEN 


POKE  768, 1 


BE  CAR 


PRINT 


BET  A* I 

0 

IF  A*  <   >  " 
G  -  G  +  li  IF  I 

GOTO  49 
L  =  1>SC  =  OjS 

IF  G  -  0  OR  G 

40j  goto  210 

POKE  768,80 

TEXT  I  HOME  i  VTAB  7 i  PRINT  "     P 

OSITIDN  GUN  OVER  CORRECT  ANSWER" 
BN  »  OiBO  »  OiB  =  OiSH  >:  O 

PRINT  i     PRINT  1  PRINT  " 
AND  SHOOT  UFO" 

PRINT  1  PRINT  I  PRINT 

EFUL  NOT  TO  WASTE  SHOTS" 

PRINT  I  PRINT  I  PRINT  " 
ENTERING  LEVEL  "jL 

FOR  I  =  1  TO  50001  NEXT 

GR  I  HOME  I  VTAB  23i  HTAB  2Si 

"SHIPSt  "|S 

HTAB    25 I     PRINT    " SCORE i     " > SC 
A    -       INT     (    RND    <l)t4+l)+4l< 

L  -  1> 
B  •=   INT  (  RND  CD  « 

IF  G  <  2  THEN  C  =  A 
C  -  A  t  B 
A«  =   STR«  <A)iB»  = 

STR»  (C) 
RP  -   INT  (  RND  (1) 

IF  RP  =  I  THEN  ANS 

IF  RP  -  2  THEN  ANS 

IF  RP  >  2  THEN  ANS 

VTAB  23i  IF  G  <  2  THEN 

"B*"-"C«i  GOTO  340 

PRINT  A«"X"B«"-"C* 

90  THEN  DL  «  lOi  GOTO  370 
20  THEN  DL  «  5i  GOTO  370 
< (ANS  /  10)  +  1) 
<  RND  (1)  «  5)  +  1 


4  «  L  +  1) 

+  Bi  GOTO  294 

5TR«  (B)iC«  a 


4)  + 
AiA« 
BiB* 
CiC« 


1 


II  ry  II 
■  I  ^11 


PRINT  A»"+ 


IF  ANS  > 

IF  ANS  > 
DL  =  INT 
DT  -   INT 

VTAB  21 

FOR  I  -  1  TO  5iCH(I) 

DT)  «  DLi  HTAB  I  t  4 

(Dm  NEXT 

FOR  I  -  1  TO  5t  IF  CH(D 
POKE  800, I  -  1 

NEXT 

CALL  24576 
SH  =  SH  +  1 
X  -   PEEK  (769)1  IF  X  -  35  THEN  600 


ANS  +  (I  - 
4i  PRINT  CH 

ANS  THEN 


500 
510 
520 
521 


IF  X  - 
IF  X  - 
IF  X  - 
HOME 

525  BN  -  BN 

526  SC  -  SC 


25  THEN  B  -  5 
15  THEN  B  -  10 
5  THEN  B  -  25 


530 


ti 

550 

PRINT  I  PRINT  "FAST 

600 

11 

601 

IF  Q  -  0  THEN   VTAB 

19i  HTAB  9 

IF  G  -  1  THEN   VTAB 

21 1  HTAB  9 

IF  G  «=  2  THEN   VTAB 

19t  HTAB  29 

602 

IF  G  -  3  THEN   VTAB 

21 1  HTAB  29 

PRINT  "»" 

603 

POKE   -  16368,0 

IF   PEEK  (  -  16384) 

<  128  THEN  90 

*    B 

+  Bi  VTAB  23«A*  -   STR*  (B) 
+  "  POINTS"!  GOSUB  900 
IF  BN  >   -  50  THEN  L  -  L  +  li  GOTO 
700 

SOTO  260 
S  -  B  -  1 
HTAB  li  VTAB  21 i  PRINT  " 

"|iA«  - 
"KEEP  TRYING"!  GOSUB  900 
PRINT  sA«  -  "I  KNOW  YOU  CAN  DO  IT" 
I  GOSUB  900 

PRINT  I  A*  -  "THE  ANSWER  WASi"j  GOSUB 
900 I  PRINT  «A«  *   STR*  (ANS>i  GOSUB 
900 

FDR  I  -  1  TO  lOOOi  NEXT 
IF  S  -  0  THEN  BOO 


610 

620 

630   GOTO  260 

700  BO  «   INT 

710   IF  BO  > 

SO 
720   IF  BO  > 

50 
730   GOTO  760 
750   VTAB  21 
755  A*  -  " BONUS 1  " 

9001 SC  «  SC  + 
760   FOR  I 
BOO   TEXT  I 


CBN  /  SH  +  .5) 

-  25  THEN  BO  »  50 I  GOTO  7 


-  10  THEN  BO 


25 I  GOTO  7 


-I-   STR«  (BO)  I  GOSUB 
BO 
1  TO  5000 I  NEXT  i  GOTO  210 
HOME  I  VTAB  5 I  PRINT  " 


SCORE I  "SC 
810   PRINT  I  PRINT  i  HTAB  18i  PRINT  "GA 
ME" I  PRINT  I  PRINT  i  HTAB  ISi  PRINT 
"OVER" 

VTAB  20 1  HTAB  5i  PRINT  "PRESS  ANY 
KEY  TO  PLAY  AGAIN" 
POKE   -  16368,0 

IF   PEEK  C  -  16384)  <  128  THEN  840 
GET  A«i  GOTO  5 

(A«)iA«  -  A*  +  "  " 

1  TO  X  +  19  -   INT  (X  /  2  + 


820 

830 
840 
850 
900 
910 

920 

930 

940 

1000  CK  - 

1010   FOR 


X  -  LEN 
FOR  I  - 
.5) 

HTAB  39-11 

NEXT  I 

RETURN 

0 

I 


PRINT   MID«  (A«,1,I)| 


24576  TO  253291  READ  AiCK 
=  CK  +  Ai  POKE  I,Ai  NEXT 
1020   IF  CK  <   >  73926  THEN   PRINT  "ERR 

OR  IN  DATA"i  END 
1030   RETURN 
1100   DATA   76,22,96,255,160,160,232,16 

9 
1110   DATA 

,  160 
1120  DATA 
1130  DATA 
1140  DATA 
1150  DATA 
1 160  DATA 
1170  DATA 
1180  DATA 
1190  DATA 
1200  DATA 
1210  DATA 
1220  DATA 


201, 197,160,160,176,165,162 

128,6, lO, 14, 18,22,32,46 
96,  32,  86, 96, 32, 216, 97, 32 
111,98,32, 175,98, 173, 16,96 
208,239,32,212,98,96, 169,  1 
141, 16,96,141,4,96,169,2 
141,5,96,169,33, 141,7,96 
141,8,96, 169,5, 141, 12,96 
141, 1,3, 169,0, 141,  13,96 
169,9, 141, 14,96,96,  173,4 
96,  205,  5,  96, 240,  34,  169,  0 
32, 100, 248, 173, 4, 96, 141,3 
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1230 

DftTA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 

14S0 

DATA 

1460 

DATA 

1470 

DATA 

1460 

DATA 

1490 

DATA 

1300 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

0 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

1660 

DATA 

1670 

DATA 

1680 

DATA 

1690 

DATA 

1700 

DATA 

SO 

1710 

DATA 

1720 

DATA 

1730 

DATA 

1740 

DATA 

1750 

DATA 

1760 

DATA 

1770 

DATA 

17  BO 

DATA 

1790 

DATA 

1800 

DATA 

1810 

DATA 

1820 

DATA 

1830 

DATA 

1840 

DATA 

1S50 

DATA 

1860 

DATA 

1870 

DATA 

1880 

DATA 

1890 

DATA 

96,  32,  43, 97, 169, 6, 32, 100 
248, 173,5,96,141,3,96,32 
43,  97,  173, 5, 96, 141 , 4, 96 
169,0,32, 100,248, 173,7,96 
141,6,96, 173,12,96, 141,9 
96, 32, 126, 97, 173, 14,96, 32 
100, 248, 173, 8, 96, 141 , 6, 96 
173, 1,3, 141,9,96,32,126 
97,173,8,96,141,7,96,173 
1,3, 141, 12,96, 173,  13,96 
201, 1,208,68,169,0,32, 100 
248, 172,2,3,185,17,96,24 
105,2, 168,173,10,96,32,0 
248, 172,2,3, 185, 17,96,24 
105,2,168, 173,11,96,32,113 
248,201,0,208,28, 169, 15,32 
100,  248,  172,  2,  3,  IBS,  17,  96 
24, 105,2, 168, 173, 1 1 , 96, 32 
0,248, 173, 11,96, 141, 10,96 
96, 173,32,3,205,2,3,240 
6, 169, 15, 141,14,96,96, 169 
O, 141,16,96,169,15,141,14 
96,173, 14,96,32,100,248,32 
126,97,32, 187,98,206, 14,96 
208,239, 96, 174, 3, 96, 189, 17 
96,24, 105,2, 168, 169,36,  133 
45, 169,34, 32,40, 248, 174, 3 
96, 189, 17,96, 168,200,24, 105 

3,133,44,169,37,32,25,248 

174.3.96. 189. 17. 96. 168. 24 

105.4.133.44. 169.38.32.25 
248,174,3,96,189,17,96,  168 
200,169,39,32,0,248,  174,3 
96, 189,17,96,168,200,200,20 

169,39,32,0,248,96, 173,6 
96,168,24, 105,3,133,44,173 
9, 96, 200, 32,25, 248, 173, 6 
96,168,24, 105,6,133,44,173 
9,96,24,105,1,32,25,248 
173,6,96, 168,24, 105,6,  133 
44, 173,9,96,24, 105,2,32 
25,248,173,6,96, 168,24,105 
6,133,44, 173,9,96,24,105 
3,32,25,248, 173,6,96,168 
24, 105,5, 133,44,200, 173,9 
96,24, 105,4,32,25,248,96 
162,0,32,30,251, 152,201,50 
144, 17,201, 100, 144, 18,201,  1 


1,3,24, 105, 10, 141, 1,3 
201 ,  35, 208, 3, 76, 147, 98, 173 
13, 96,  201 , 1 , 208, 48, 173, 1 1 
96,201,2,144,15,206,11,96 
206,11,96,206,11,96,206, 11 
96,76,  110, 9B, 169,2, 141, 13 
96, 169, O, 32, 100,248, 172,2 
3, 185,17,96,24,105,2, 16B 
173,  10,96,32,0,248,96,173 
97,192,48, 1,96, 173,13,96 
201,0,208,22,169,33,141,10 


1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 

1990 
2000 

2010 
2020 

2030 

2040 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

IS 
DATA 
DATA 

5 
DATA 
DATA 

253 
DATA 

33 
DATA 


96,141,11,96,169,1,141,13 
96,173,4,96, 141,2,3,32 
198,98,96, 169,0, 141, 16,96 
169, 15, 141, 14,96, 173, 14,96 
32, 100, 248, 32, 43, 97,32, 187 
98,206, 14,96,208,239,96,  174 
0,3, 160, O, 200, 208,253, 202 
208,250,96,162,10, 160,0,200 
208,  253,  202, 208, 250, 96, 162, 

173,48, 192, 169,4,32,168,252 
202, 208, 245,96, 169, 16, 141 , 1 

96, 160, 1 , 162, 1 , 169, 80, 32 
168,252,173,48,192,232,208, 

136,208,240,206,15,96,208,2 

96,  255, 0, 0, 255, 255, 0, 0 


Program  7:  PC/PCjr  Missile  Math 

10  WIDTH  40:KEY  OFF: SCREEN  0,1;DEF  SEG=0 
:POKE  1047, 64: DEF I NT  A-Z 

20  GOSUB  610:GDSUB  450:BOSUB  4S0:6DSUB  5 
10:6OTD  110 

30  IF  y2=N21  THEN  RETURN  ELSE  C*=INKEY*; 
IF  C*="."  AND  H<N28  THEN  LOCATE  N21,H:PR 
INT  '■   ":H=H+N5 

40  IF  C*=","  AND  H>N9  THEN  LOCATE  N21,H: 
PRINT  "   '■:H=H-N5:Z=RND(1) 

50  IF  C*=CHR*(N32)  AND  FIRE  =N0  AND  FI=N 
0  THEN  FIRE=N1:FI=N1:Y=N20: X=H+N1 :FANS=C 
H ( (H-N3) /N5) : NS=NS+N1 : 2=RND ( 1) : RETURN 
60  LOCATE  N21,H: COLOR  N3: PRINT  BASE$:RET 
URN 

70  X2=X2-N1:IF  X2=N1  THEN  LOCATE  Y2, X2+N 
1: PRINT  "  ": Y2=Y2+N5: X2=N35iFI=N0:R=N 
4 

80  SP=SCREEN(Y2,X2) : IF  SP=21  THEN  FL=2:K 
=S:RETURNiELSE  IF  SP=202  THEN  FL=3:K=S:R 
ETURN 

90  LOCATE  Y2,X2:C0LDR  R:PRINT  SPCE*:RET 
URN 

100  C0L=CDL+1:IF  C0L=8   THEN  COL  =2 
110  COLOR  COL:CLS:W*="ENTERING  LEVEL"+ST 
R*(LVL> :YY=12:G0SUB  590:GOSUB  630 
120  IF  NS  THEN  IF  NS<3  THEN  W$="50  POINT 
B0NUS":YY=14:G0SUB  600: ELSE  IF  NS<6  THE 
N  W*="25  POINT  BONUS": YY=14:G0SUB  600 
130  FOR  TD=1  TO  1000: NEXT: SCL=0; NS=0 
140  CLS: LOCATE  2,1: FDR  J=l  TO  NM: COLOR  1 
3:  PRINT  CHR*(6)"  ■';:NEXT 
150  LOCATE  2, 29: PR I NT "SCORE  "SC 
160  X2=36; Y2=&:T=1NT(RND(1 ) *20) +40: FL=1 ; 
FI=0:FIRE=0:R=4 

170  A=INT (RND ( 1 ) *4+l ) +4* (LVL-1 ) 
180  B=INT(RND(1)«4*LVL+1> 
190  IF  P*="A"  THEN  C=A+B:GOTD  210 
200  C=A«B 

210  A*=STRS(A) :B*=STR*(B) :CS=STR*(C) 
220  RP=INT(RND(1 ) *4)+l 
230  IF  RP=1  THEN  ANS=A: A$=CHR* (63) 
240  IF  RP=2  THEN  ANS=B: B*=CHR* <32) +CHR* ( 
63) 

250  IF  RP=3  DR  RP=4  THEN  ANS=C: C*=CHR* (3 
2)+CHRS(63) 

260  IF  P*="A"  THEN  LOCATE  4,14:COLOR  7:P 
RINT  A«"  +"B*"  ="C»:60T0  2S0 

September  1964     COMPUTE!      89 


270  COLOR  7: LOCATE  4,14rPRINT  A*"  X"B*" 

=  "C* 

2B0  IF  ANS>90  THEN  DEL=10:GOTO  320 

290  IF  ANS>20  THEN  DEL=5: GOTO  320 

300  DEL=INT( <fiNS/10)+l) 

310  DT=INT(RND(0) «5)+l 

320  FOR  1=1  TO  S:CH(I>=ANS+(I-DT) *DEL:LD 

GATE  22, 5* 1+3: PRINT  CH ( I) : NEXT  I 

330  GOSUB  30:GOSUB  410: T=T-N1 ; IF  T<N0  TH 

EN  FOR  K=N1  TO  S: GOSUB  410: GOSUB  70: NEXT 

: GOSUB  410 

340  ON  FL  GOTO  330,350,370 

350  R=N7:FL=N1:  IF  ANSOPANS  THEN  330  ELS 

E  FDR  TI=N1  TO  N3: COLOR  TI: LOCATE  Y2-N1 , 

X2: PRINT  El*: LOCATE  Y2,X2: PRINT  E2$:L0CA 

TE  Y2+Nl,X2r PRINT  E3$: LOCATE  Y2+N2,X2:PR 

INT  P(Y2)"  POINTS": FOR  TD=37  TO  45: SOUND 

TD, .5:NEXT  TD, TI : FIRE=0: FDR  TD=1  TO  900 
:NEXT 
360  SC=SC+P ( Y2 ) : SCL=SCL+P  C  Y2 ) : I F  SCL  >=50 

THEN  LVL=LVL+1:SCL=0:SOTO  100: ELSE  140 
370  NM=NM-1: SOUND  100, 20: FOR  TD=1  TO  600 
: NEXT: SOUND  37, 20: FOR  TI=1  TO  5: FOR  TD=1 

TO  600: NEXT: LOCATE  22, 5«DT+3: PRINT  " 

":FOR  TD=1  TO  60: NEXT: LOCATE  22,5*DT+3: 
COLOR  4: PRINT  CH(DT):FOR  TD=1  TO  60; NEXT 
;NEXT 

380  IF  NM>0  THEN  W*="KEEP  TRYING" : YY=10: 
GOSUB  590:BOSUB  630: GOTO  140 
390  LOCATE  2,1: PRINT  "  ":W«="PLAY  AGAIN 
?(Y/N)":YY=10: GOSUB  590 
400  I$=INKEYS;IF  I$="Y"  THEN  RUN  ELSE  IF 

I*="N"  THEN  CLB: END: ELSE  400 
410  IF  FIRE=N0   THEN  FOR  TD=1  TO  10: NEXT 
: RETURN 


STOP  PLAYING  GAME 


■  Calculale  odds  on  HORSE  RACES  wilh  ANY  COMPUTER 
using  BASIC. 

■  SCIENTIFICALLV  DERIVED  S^TEM  really  works  TV 
Slation  WLKV  ol  Louisville.  Kenlucky  used  inis  syslem 
10  predict  Ihe  odds  oi  the  19S0  Kentucky  Dert^.  See 
Popular  Compulmg  (February.  i98't  I  lor  a  review  ot  ttiis 
program  This  syslem  was  written  and  used  try 
computer  experts  and  is  now  tKing  made  available  to  home  computer  wners-  This  meiliod 
IS  Dasefl  on  storing  data  from  a  large  numtier  ot  races  an  a  tiigh  speed.  Isige  scale  coniputer 
23  taciors  talien  Irom  the  "Daily  Racing  Form"  were  then  analyzed  dy  the  computer  to 
see  how  they  intluenced  race  results.  From  itiese  23  lads,  ten  were  lound  to  be  Ihe  most 
vital  in  determining  winners  NUMERICAL  PROBABILITIES  ol  each  of  these  to  lactots  were 
then  computed  and  ttiis  lorms  the  basis  ol  this  REVOLUTIONARy  NEW  PROGRAM 

■  SIMPLE  TO  USE  Obtain  "Daily  Racing  Form"  the  day  before  Ihe  races  and  answer  the 
10  questions  about  each  horse.  Run  the  program  and  your  computer  will  print  out  the 
odds  lor  all  horses  in  each  race.  COMPUTER  POWER  gives  you  the  advantage! 

■  VOU  GET 

1 1  Program  on  casselie  or  distc. 
21  listing  ol  BASIC  p'ograms  lor  use  with  any  computer 
31  Insiructions  ofi  how  to  get  me  needed  data  from  the  "Daily  Racing  Fom." 
ij  Tips  on  using  the  odds  generated  by  the  program 
51  Sample  form  to  simplify  ertenng  data  lor  each  race 
MAILCOUPON  on  CALLTODAf 

3G  COMPANY,  INC.  DEPT.  CO  (503)  357-5607 

RT.  3,  BOX  28A,  GASTON,  OR  97119 

Yes.  I  want  to  use  my  computer  for  FUN  and  PROFIT.  Rease  send  me  "Play  the 
Horses"  for  SZ9.95.  Circle  the  cassette  you  need:  VIC-20.  Color  Computer. 
TRS-80,  Sinclair  Timei  tOOO.  Atari.  Commodore  64  (disk  or  casseliel. 

Apple  (diskl.  IBM  Idiskl.  tST 

Enclosed  is  D  check  or  money  order  D  MasterCard  D  Visa       ^/^ 


Card  No 
NAfitE  


Eip  date 


ADDRESS . 

CITY    


START  USING  YOUR  COMPUTER  FOR 

FUN  and  PROFIT! 


420  Y=Y-1:IF  Y=5  THEN  F1RE=0: LOCATE  Y+1 , 

X: PR I NT"  ": RETURN 

430  SP=SCREEN(Y,X)  :  IF  SP  032  THEN  FL=2 

440  SOUND  200-Y«3, . 1;L0CATE  Y,X;COLOR  14 

: PRINT  MISS*: RETURN 

450  CLS:W*="HISSILE  MATH  ■": YY=10: COLOR 

2: GOSUB  590: FOR  TD=1  TO  800: NEXT 

460  COLOR  3:W*="<  MOVES  YOU  LEFT" : YY=12: 

GOSUB  590: COLOR  4:W*=">  MOVES  YOU  RIGHT" 

:YY=14: GOSUB  600: LOCATE  16,11:C0L0R  7;  PR 

INT  "SPACE  BAR  TO  FIRE": GOSUB  630: RETURN 

470  FOR  TD=1  TO  2000; NEXT: CLS: RETURN 

400  SPCE*=CHR«<17)+STRING$t2,219)+CHR$(l 

74 )  +CHR*  ( 32 )  +CHR$  ( 32  >  ;  B ASE*=CHR$  ( 32 )  +CHR 

*  < 202 ) +CHR$  < 32 ) : MI SS*=CHR$  < 2 1 ) +CHR* (31)  + 

CHR* (29) +CHR* (32) : E1«=CHR$ (92) +STRINe* (2 

, 179)+CHR*C47) : E2$=CHR* ( 196) +STRING* (2, 3 

2 ) +CHR$ ( 1 96  >  +CHR* ( 32  > 

490  E3«=CHR*(47)+STRlNG«t2, 179) +CHR* (92) 

500  H=2a : LVL= 1 : NM=3: N 1= 1 : N2 1 =21 : N32=32 : N 

28=28 : N0=0 : N2=2 : N3=3 : N202=202 : N5=5 : N9=9 ; 

N32=32: N20=20: N35=35; N4=4; N7=75  DIM  P (16) 

:P(6)=25:P(11)=10:P(16)=5: CDL=2 : RETURN 

510  CLS: LOCATE  8, 8,0: COLOR  7: PRINT  "(A)D 

DITION  AND  SUBTRACTION": LOCATE  10,19:PRI 

NT "OR" 

520  LOCATE  12,7  : PRINT" (M) ULTIPLICATION 

AND  DIVISION" 

530  P*=INKEYt:IF  Pt<>"A"AND  P*<>"M"  THEN 

530 
540  LOCATE  15, 12:PRINT  "(F)AST  OR  (S)LOW 

550  S*=INKEY*:IF  S«="S"  THEN  5=1  ELSE  IF 

S$="F"  THEN  S=2  ELSE  550 
560  LOCATE  21,11;PRINT  "HIT  ANY  KEY  TO  S 
TART" 

570  Z=RND(1) : It=INKEY*: IF  I«=""THEN  570 
580  RETURN 

590  W=LEN (W$) : NW$=W«+STRING* (20-W/2, 32) : 
FOR  K=l  TO  LEN(NW*) ; LOCATE  YY, 39-K, 0; PRI 
NT  LEFT$(NW$,K) : NEXT: RETURN 
600  W=LEN(W$) :NW$=STRING*(18-W/2,32)+W*; 
FOR  K=l  TO  LEN( NWS): LOCATE  YY,1: PRINT  RI 
BHT«(NW*,K) : NEXT: RETURN 

610  DIM  N0(14,2):F0R  A=l  TO  14;F0R  B=l  T 
O  2: READ  NO ( A, B): NEXT  B, A: RETURN 
620  DATA  196,1,196,1,196,1,261,9,196,1,1 
96, 1, 196, 1,261, 1,232, 1,220, 1, 196,7,32000 
, 1, 196,3,261,6 

630  FOR  Rl=l  TO  14: SOUND  NO (Rl , 1 ) , NO (Rl , 
2>«i.5:F0R  TD=1  TO  NO(R1,2)«90  :NEXT:NEX 
T:  RETURN  10 


Maxell  Floppy  Disks 

The  Mini-Disks 
with  maximum  j 
quality  I 

Dealer  inquiries  invitetd.  C.O.D's  accepted. 
Call  FREE  (800)  235-4137. 


PACIFIC  EXCHAMGES 

IIMI  Foolhili  15k  J 

San  Luii  Ohiijjo  CA  '):i4il  I 

InCjl  call(!tlllll.in2!.9:(,S™ 

JflOSlMlt.HOT 


Lightsaver 


Jon  Phees 

The  zvorld  is  depending  on  you  to  save  its  supply  of 
light  bulbs.  A  quick  eye  and  an  even  faster  hand  are 
the  only  tzvo  things  that  will  help  you.  This  arcade- 
style  action  game  uses  machine  language  for  fast 
action.  Versions  are  included  for  the  Commodore  64 
and  VIC-20,  the  Atari  home  computers,  and  the 
IBM  PC/PCjr. 


Technology  has  backfired  again!  A  dangerous 
power  surge  has  transformed  the  light  fixture  in 
your  room  into  a  devilish  lamp,  which  is  trying 
to  rid  the  world  of  light  bulbs  by  tossing  them  to 
the  ground.  Only  you  can  stop  the  lamp  from 
carrying  out  its  horrid  plan.  You  must  catch  the 
bulbs  in  your  baskets  before  they  hit  the  ground 
and  break.  The  more  bulbs  you  save,  the  more 
angry  the  lamp  will  become,  and  the  faster  it  will 
drop  bulbs.  How  long  can  you  survive  the  wrath 
of  the  lamp? 

"Lightsaver"  is  a  fast-action,  arcade-style 
game  which  utilizes  many  of  the  capabilities  of 
the  Commodore  64.  Most  of  the  action  in  this 
game  is  written  in  machine  language  for  speed, 
while  the  scoring  and  setup  routines  are  written 
in  BASIC,  The  game  requires  a  set  of  paddle 
controllers,  which  should  be  plugged  into  port  1. 

The  object  of  the  game  is  simple:  catch  as 
many  light  bulbs  as  you  can  without  missing  or 
dropping  any.  You  must  catch  each  bulb  in  your 
baskets.  At  the  beginning  of  a  game  you  start  out 
with  three  baskets,  stacked  atop  each  other.  You 
position  the  baskets  by  turning  the  paddle 
controller.  Each  time  you  miss  a  bulb,  you  lose  a 
basket,  and  are  set  back  one  level.  Each  consec- 
utive level  has  more  bulbs  to  catch  and  faster 
action.  Bonus  baskets  are  awarded  every  2000 
points,  but  you  can  have  only  three  baskets  at  a 
time.  Also,  the  higher  the  level  you  are  on,  the 
more  points  each  bulb  you  catch  is  worth. 

There  are  16  skill  levels  in  Lightsaver  and 
two  basket  sizes.  The  higher  the  skill  level  you 
choose,  the  faster  the  game.  Bulbs  are  easier  to 
catch  with  a  large  basket  than  with  a  small  one. 
A  large  basket  is  twice  as  wide  as  a  small  one. 
You  can  change  the  basket  size  during  the  game 
by  pressing  the  fl  key.  Press  the  paddle  fire 
button  to  start  a  new  round. 


Lightsaver  takes  advantage  of  the  sprite,  re- 
defined character,  color,  and  sound  capabilities  of 
the  64.  It  contains  two  separate  machine  lan- 
guage routines — one  for  the  game  action,  and 
another  to  quickly  copy  the  character  ROM  into 
RAM  for  programmable  characters.  A  demo 
mode  is  also  included.  The  computer  plays  a 
game  against  itself  if  left  alone.  All  eight  sprites 
are  used,  as  well  as  a  redefined  character  set.  The 
first  two  voices  of  the  SID  (Sound  Interface 
Device)  chip  are  used  for  sound  effects,  and  the 
third  voice  is  used  as  a  random  number  gen- 
erator for  the  machine  language  routine. 

If  you'd  rather  not  type  in  the  program,  you 
can  obtain  tape  or  disk  copies  (64  version  only). 
Send  an  SASE,  a  disk  or  tape,  and  $3  to: 

Jon  Rhees 

1660  S.  Duneville 

Las  Vegas,  NV  89102 

Program  1 :  64  Ughtsaver 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

1  GOSUB550  :rem  75 

2  Z=646 : POKE53280 , 0 : POKE53281 , 0 ! POKEZ , 1 sX 
=58692 :SYSX;V=53248  srem  89 

3  G=542  72 : POKEG+6 , 0  j  POKEG+5 , 0 : POKEG+4 , 0 : P 
OKEG+6 , 240 ; POKEG+4 , 17  s  POKEG+24 , 143 

srem  122 

4  POKEG+6 , 240 ! NS $= " 000000 " : GOSUB400 

:rem  187 
10  T=49152 :H=54273 : B=832 iC=1022 : E=49550:F 
ORA=BTOC:READM:POKEA,M;POKEH,M:NEXT 

trem  131 
20  B=V+39 ! F0RA=TT0E : READM : POKEA , M : POKEH , M 
; POKEB, M i NEXT : POKEG+5 , 186 : POKEG+6 , . 

:rem  124 

26  POKE252,208»POKE251, .:POKE253, .:BL=872 

:POKE254,48  :rem  240 

28  POKE56334, . rPDKEl , 51 :SYS49490 sPOKE4951 
3,56!POKE49500,145:POKE49501,253 

:rem  208 

29  POKE49502 , 200  s  POKE49503 , 2  34 : SYS49490 : P 
OKE1,55:POKE56334,1:GOTO600    rrem  214 

60  POKE53280,3:SYSX:PR1NT"{5  DOWN] 

{7  SPACES) SELECT  SKILL  LEVEL  (A-P)  "; 

:reni  232 

61  GETA?sSL=ASC(A$+"  ")-59:IFSL<6  OR  SL>2 
1  THEN  61  :rem  170 

62  PRINTA$:POKE53280, 14  :  PRINT -.PRINT" 

[3  DOWN} (7  SPACES} SELECT  BASKET  SIZE  ( 
S/L)  "; :P=.  :rem  95 
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Notes  For  VrC-20,  Atari,  And  IBM  PC/PCjr  Versions 


In  "Lightsaver,"  you  must  catch  light  bulbs 
that  fall  from  a  lamp  at  the  top  of  the  screen. 

The  VIC  Version 

Program  2,  for  the  unexpanded  VIC-20,  is 
written  entirely  in  machine  language  and  offers 
five  levels  of  play.  The  level  selected  affects 
the  speed  of  the  falling  bulbs  at  the  beginning 
of  play.  The  speed  increases  when  a  light  bulb 
is  caught  in  your  basket  and  decreases  when 
light  bulbs  crash  to  the  bottom  of  the  screen. 
The  game  ends  when  three  bulbs  have  been 
missed. 

You  move  your  baskets  under  the  falling 
bulbs  by  using  a  paddle  plugged  into  the  con- 
trol port. 

Since  the  VIC  version  is  written  in  ma- 
chine language,  you  must  use  a  special  tech- 
nique to  enter  the  program.  You  must  first  type 
in  the  "Tiny  MLX"  program  found  elsewhere 
in  this  issue,  and  then  use  this  program  to  type 
VIC  Lightsaver.  Be  sure  you  read  and  under- 
stand the  Tiny  MLX  article  before  you  begin 
typing  Lightsaver.  Also,  remove  or  disable  any 
memory  expanders.  Once  you  have  typed  in 
Lightsaver,  and  saved  it  to  tape  or  disk  using 
MLX,  you  can  load  and  run  the  program  just 
as  you  would  a  BASIC  program. 

The  Atari  Version 

To  catch  bulbs  in  the  Atari  version  of 
Lightsaver,  you  must  move  your  basket  with 
the  paddle  controller  and  touch  the  bulbs 
before  they  hit  the  bottom  of  the  screen.  If  a 
light  bulb  reaches  the  bottom  of  the  screen,  it 
will  break  and  you  will  lose  one  of  your  three 
baskets.  The  number  of  points  awarded  for 
catching  a  bulb  is  equal  to  the  current  level. 
For  instance,  on  the  fourth  level,  every  bulb 
that  you  catch  is  worth  four  points.  You  are 
given  an  additional  basket  every  2000  points. 
Each  time  you  complete  five  levels,  the  speed 
of  the  light  bulbs  increases. 

Atari  Lightsaver  has  been  split  into  two 
programs  so  it  will  work  on  16K  computers 
with  DOS.  Load  and  run  Program  3.  This  pro- 
gram loads  two  machine  language  subroutines 
and  the  redefined  character  set.  When  finished, 
this  program  will  load  and  run  Program  4.  Pro- 
gram 4  (the  main  program)  contains  the  player 
missile  graphics  and  the  main  game  loop. 
Since  Program  3  loads  and  runs  Program  4, 
disk  users  must  save  both  programs  on  the 


same  disk.  Program  4  must  be  saved  with 
filename  LIGHTSAVER. 

Cassette  users  must  change  line  1046  in 
Program  3  to: 

1046  READ  A:  IF  A=  -1  THEN  PRINT  "HIT  RETURN 
TO  LOAD  LIGHTSAVER":  RUN  "C:" 

Next,  rewind  a  tape  to  a  blank  section,  press 
the  PLAY  and  RECORD  buttons,  and  enter 
SAVE  "C:"  to  store  Program  3.  When  the 
cassette  is  finished,  type  in  Program  4,  Save 
Program  4  immediately  following  Program  3 
by  once  again  entering  SAVE  "C:".  To  load 
and  run  the  two  programs,  rewind  the  tape  to 
the  start  of  Program  3  and  type  RUN  "C:". 

The  IBM  Version 

In  the  IBM  version  of  Lightsaver  (Program  5), 
you  must  catch  bulbs  before  they  fall  below 
basket  level.  The  IBM  version  has  only  one 
difficulty  level  and  a  constant  basket  size. 
Game  play  consists  of  several  rounds,  each 
consisting  of  a  barrage  of  dropping  bulbs. 
Between  10  and  20  bulbs  are  dropped  before 
the  round  ends.  Each  additional  round  in- 
creases the  motion  of  the  lamp  which  drops 
the  bulbs  and  increases  the  number  of  points 
awarded.  The  formula  is  simple:  The  number 
of  points  awarded  equals  the  number  of  bulbs 
caught,  multiplied  by  the  difficulty  level. 

You  can  catch  a  bulb  only  if  it  drops  into 
the  basket  from  above.  It  is  possible  to  break  a 
bulb  by  hitting  it  with  the  rim  of  your  basket. 
If  you  let  a  bulb  break,  the  round  ends  and  the 
difficulty  level  decreases  by  one. 

IBM  Lightsaver  will  run  on  PCs  with  Ad- 
vanced BASIC  (BASICA)  and  PCjrs  with  DOS 
and  Cartridge  BASIC.  A  Color/Graphics  Mon- 
itor Adapter  card  is  needed  on  PCs,  A  joystick 
is  required  to  control  the  left-right  movement 
of  the  baskets. 

Since  the  video  display  processor  of  the 
IBM  PC  may  refresh  the  screen  while  we  are 
using  the  PUT  statement  to  place  graphics  on 
the  screen,  a  short  machine  language  routine 
has  been  included  to  synchronize  PUT  with 
the  vertical  retrace  interval. 


CHECKPORT 


MOV  DX,3DAh 
IN  AX,DX 
AND  AX,8 


JZ  CHECKPORT 
RETF 

This  machine  language  routine  reduces  flicker 
when  the  baskets  are  moved  around  the  screen. 
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SPECiALS  on  INTEGRATED  CIRCUITS 

B502  tffl  4.90  6520  -ji  4,00  6522  'jS  5.00  41(6  ©  1  85 
2532  (B  5.90  2716  'S  4,45  6116  .a  6.45  4164  i?  550 


Anchor 
Automation 
Signalman 
IVIODEMS 


FREE  SOURCE  MEMBERSHIP  WITH  SIGNALMAN 

Alt  Signalman  Modems  are  Direct  Connect,  and  pfovidc  the 

best  price-performance  values.  Dealer  ind  OEM  Inquiries 

Invited 

Volksfliodem  wllh  coniputer  i^ble  68 

M  ar  k  X  Auto  D  lal/AutO  Answer  129 

Mark  XII  Smart  MwJem  1200/300  265 

D'CHA^tS'^inaffiTiiideffl 'iV5 

DC  Hayes  Smartmodem  1200, '300  519 


WCG4ZGAuloModem  Hike  16501  65 

Tech  Sketch  Light  Pen  +■  MIcrd  lllustratar  44 

PROM  QUEEN  fur  CB4  or  VIC  130 

STAT  Siatlslics  Package  for  C64  95 

Solid  Oak  Z  Level  Stand  for  C64  or  VIC  Z9 

C64A'IC  Switch  (nelwofkingi  125 

BAI^KUP  VI  .0  lape  upler  tor  G64  or  VIC  20 

CARDBOARO/5  Mottiertward  -  C64  56 

CARD  PRINT  G  Printer  Inl  with  Graphics  72 

CAROCO  C64/VIC  Calculator  Keypad  32 
Complete  CARDCO  Line  in  stock 

CIE  and  VIE  IEEE  Interfaces  in  stock  85 

MSD  Doal  SupirOrive  tor  C64  +  IEEE  570 

[yflSD  SuperDnve  for  C64  +  IEEE  345 

MAE  Assembler  lor  C64  50 

Koala  Pad  Tooch  Tablet— C64  or  VIC  75 

CBC  4/t2  Analog  to  Digital  4  cltan/lZ  tiit  179 

MULTIPLAN  for  Cfi4  79 

Dusi  Cover  lor  C64  Of  VIC  6 

SAT  Coorses  (Hayden )  tor  CG4  eactt  24 

Grand  Master  Chess  lor  C64  24 
Muslcalc  Software  for  C64  In  stock 
SM  Software  for  C64  In  stock 

BusCard  II  froin  Batteries  Inciuded  149 

ULTRA  BASIC  -  64  with  Turtle  Graphics  37 

COMAL  Language  fcr  C64  IS 

Super  Disk  Utilly -  C64  -  includes  backup  19 

Typing  Tulor  HI  witli  Letter  litvaders  35 

Trackball  lElectraCanceptslC64  29 

HESMODEIM  with  software  lor  CE4  45 

Commodore  64  Programmers  Reference  Guide  16 

WordPro  3+/64  with  Spellrlglit  85 

VIController  (also  C64I  -  BSR  Conlroller  50 

COM  VOICE  Synthesi?er  for  C64  or  VIC  1 39 
VIC  products  in  stock  -  call  for  extra  discounts. 
Victory  Software  lor  VIC  and  C64  in  stock. 

C-Sca"(i"NetwbVkingfof'C64 i'l"9 

Share  up  to  8  computers,  device  transparent,  with  reset  and 
automatic  power-on 

APPll— FRAN KUN  ITEMS 

FRANKLIN— complete  line  in  stock 

Swapper  Stopper  26 

aulomalic  svaitch  iKlween  paddles  and  joystick 

KRAFT  Apple  Joystick  32 

Kraft  Apple  Paddle  Pair  32 

Koala  Pad  Touch  Tablel-Apple/Fratiklin  90 
SPINf/AKEH  Software  in  stock 
Broderliund  Soltware  in  slock 

16K  RAM  Card  lor  Apple  59 

Multlpian — Micrtsoft  1Z9 

Solid  Oak  2  Level  Stand  lor  Appfe  29 

Serial  Card  for  Apple  39 

MPC  RAM/BO  colomn  card  tor  lie  [AP/TXT]  1 39 

zeo  Softcard  and  CP/M  ([Microsoft)  235 

Parallel  Printer  Interface/Cahle  69 
Microtek  anti  MPC  Interlaces  in  stock 

Grappler+ Interlace  135 

DC  Hayes  Micromodem  II.  He  with  Smartcom  245 

PFS:  File  or  PFS:  Ileporl  or  PES:  Graph  95 

Videx  80  Column  Card  209 

Apple  Blue  Book  19 


21 5-822-7727 

252  Bethlehem  Pike 
Col  mar,  PA  1891 5 


B  commodore 

See  us  fur  Personal.  Business,  anil  Educational 
requirements.  EiiucatJonal  Discounts  available. 

PETSCANI      $2  4  5  base  price 

Allows  you  to  conned  up  to  30  CBM/PET  Comixiters  to 
shared  disk  drives  and  p[  inlets  Completely  transparent  to  the 
user.  Perfect  for  schools  or  mulliple  word  processing  eon- 
figu  rations  Base  configuralion  supports  2  computers  Addi- 
tional computer  hookups  S100  each. 

COMPACK/StCP  $115 

Intelligent  Terminal  Package  for  PET,  CBM.  C64 

Includes  ACIA  Hardware  ■'  STCP  Softv;are 

SCREENMAKERSOCotanAd^^  139 

Provide  big  screen  capability  for  business  applications 

Copy- Writer  Woni  Processor  for  C64  49 

Full-featured  package  with  aofl  lines  of  text  in  memory 
Includes  itoiible  column  printing,  graphic  capabiiiiy,  full  prin- 
ter support. 

Special  Screenmaker/Cojiy'Writer  Gombo        179 

PAPER  CUP  Word  Processor-  CBht/C64  60 

ORACLE  {Consullantj  Data  Base  by  Batteries  Included      89 
SPINNAKER  Software  Cfi4,  Appfe.  IBM,  Atari 
VICTORY  Soltware  for  C64  io  stock 
Compte!  Books  in  Stock 

POWER  ROM  Utililies  lor  PET/CBM  78 

WordPro4-l- -8032.  disk,  prmler  285 

VISICALC  tor  PET.  ATARI,  or  Apple  1 89 

SM-KIT  entianced  PET/CBM  ROM  Utilities  40 

PET  Spacemaker  II  ROM  Switch  38 

Dust  Cover  for  PET,  CBM,  4040,  or  8050  8 

CmC  Interfaces  (ADAIBOO.  ADAI450,  SAD1  In  stock) 
HES  Software  and  Hardware  in  stock 
UMI  Proilucls  in  stock 


FlexRIe  for  PET/CBM/C64 


$59 


DataBase  Report  Writer  with  calculahons.  Mailing  Lists 
Easy  Io  use.  and  can  be  modified  _  __ 


FORTH  for  PET/CB4  lull  FIG  model  -  Cargile/Riley  50 
includes  all  FORTH  79  Standard  extensions,  stmctured  6502 
assembler  with  nesled  decision  macros,  standard  16x64 
screens,  ability  to  read/write  BASIC  sequential  tiles,  sample 
programs,  introductory  -I-  relerence  manual. 
Melacompliler  for  FORTH  for  independent  object  code  30 
Floatiiig  Point  for  FORTH  _    _  20 

BRIDGE  2.2  ior"c"64 ' "S25 

Excellent  Bridge  program  Computer  bids  and  plays  agamsl 
you  Hands  are  computer  generated,  but  vou  may  set  up  hands 
and  modily  contract  Allows  you  lo  claim  balance  ot  Iricks. 
replay  hand,  and  review  previous  Irick 

KMMM  PASCAL  IV  for  PEt/CBM/CM     "q's 

Virtual  ly  lul  I  Jensen- Wirth  iniptementation  Is  now  su  itable  tor 

advanced  placement  courses 

EARL  lor  PET/CBM/C64  Disk-based  ASSEMBLER      65 

'DiSKT.'c.'i)''ilntensii('e'Care''lJnit) S40 

COMPLETE  DISK  flECOVERy  SYSTEM  FOR  4040/154) 
Edit  disk  blocks,  duplicate  disks,  skipping  over  bad  olocks:  u  n- 
scratch  scratched  hies,  check  and  correct  scrambled  files. 
recover  improperly  closed  liles.  Includes  complete  diagnostic 
lacilities,  extensive  treatment  of  relative  files,  optional  output 
lo  printer,  antfcomptehesive  user  manual  Ian  excelleni  tutorial 
on  disk  cperalion  and  theoryi.  Furnished  on  copy-prolecled 
disk  Backup  available  SIO 

iij 

75 


Smart  Termliial  Software  for  C64/VIC 

CBM  Public  Domain  Software— C64/PET27  disks 


DITTO  DISK  64  36 

Disk  copy  utilily  for  C64  Mai(e  your  own  disk  copies,  even  il 
the  original  ts  copy  protected 

STAT  for  PET/CBM/C64  and  Apple  95 

ComprehensiKe  Slatlstlcal  Analysis  Routines 

Includes  complete  file  handling  capabilities,  summary  statis- 
tics, confidence  intervals,  hypothesis  tests,  exponential  mean 
tests,  multiple  and  power  sehes  regression,  analysis  of  vari- 
ance, histograms,  and  non-parametric  tests 
Page  Mate  60  Commani  Word  Processor  20 

Full-leatured  package  for  all  Commodore  computers.  Full 
screen  ediling,  and  supports  disk,  tape,  and  all  printers 


DISK 
SPECIALS 

Scotch  (3M)  5"  ss.'dd 
Scotch  (3M)  5"  ds/dd 
Scotch  (3M)  8"  ss/sd 
Scotch  (3M|  8-  ss/dd 


10/185  50/1,75  100/1  70 
10/2  50  50/2.35  100/2  30 
10/2  20  50/2  00  100/1,98 
10/2  80   50/250   100/247 


We  Stock  VERBATIM  DISKS 

Write  for  Dealer  anij  OEM  prices. 


Seminal  5"  ss/dd 
Senlinal  5"  ds/dd 


10/  1,80   50/1  75   too/  1  65 
10/240   50f235   100/225 


We  stock  Dysan  disks 


Wabash  5"  ss/sd 
Wabash  5"  ss/dd 
Wabesh  5"  ds/dd 


10/125  50/122  100/  1  IB 
10/1.40  50/1-37  100/  1.32 
10/  1.75  50/1.72  100/1,65 


We  stock  MAXELL  DISKS 

Write  for  ilealer  and  OEM  prices. 

Disk  Storage  Pages      1 0  lor  S4    flub  Rings  50  for  S6 

Disk  Library  Cases      8"— 3 00  5"— 225 

Head  Disk  Cleaning  Kits     1 2 

AMARAY  Disk  Storage  Systems  +  new  MediaMate  5 

in  slock 

Innovative  Concepts  FLIP  N"  FILES  in  slock 

CASSETTE  TAPES— AGFA  PE-611  PREMIUM 

C-10  10/  61       50/  58         100/  50 

C-30  10/85       50/  82         100/  70 


Ytmrsf 


data 
systems 


ZVM-122A                    99       ZVM-123G  89 

ZVM131                     300       ZVM-135  490 

Z100  16-iiit/B-bitSysten)  CALL 

229  Terminal  (DEC  and  ADM  compalibfel  ..6S0 

Z-150  IBM  PC  COMPATIBLE      CALL 

Z-i60  PORTABLE  PC  _    CALL 

LSi  Video  Monitors  -  Green  or  AMBER  20  MHz  lil-res 
Pi-2  [12000(12"  20  MHz  Green  85 

PI-3(l2D0A)"MH2Aniber  89 

WRiTE  FDR  IBM  PC  COMPATIBLE  PRICES 

MvltlPlan— IBM  or  Apple  129 

Quadboard  for  IBM  available 

KOALA  PAD  Touch  Tablets— Apple.  Alan.  IBM,  CBM 

Peactiteit  5D0D  Software  Package  209 
PFS  Software  lor  IBM  and  Apple  in  stock 
SPINNAKER  Software  C64/VIC.  Apple.  IBM.  Alari 

VOTRAX  Personal  Speech  System  269 

BMC  9131+ Color  Monitor  235 

BMC  1201G  12"  (Jreen  t^onitor  79 

Dynax  jBrotherl  DX-1 5  Daisy  Wltee!  Printer  399 

Brotlier  HR-25  Daisy  Wtieel  Printer  (25  cps)  675 

Brother  HR-35  Daisy  Wtieel  Printer  (25  cps]  915 

Itoh  Prowriler  Parallel  Punier  359 

Panasonic  1090  Printer  witli  Corresponifence  Mode  279 

Gemini  IDX  285 
EPSON.  Okidala.  Star  Micronics  printers  in  stock 
We  Stock  AMDEK  Monitors 

A  P  Products  15%  OFF 

COMPUTER  COVERUPS  IN  STOCK 

BROOKS  5  Outlet  Surge  Soppressor/Nolse  Filter  54 

Surge  Suppres5or-6  outlet  29 

Electrohome  1 302-2  1 3"  Hi-res  RGB  Monitor  335 

Panasoiiic  12"  Monitor  [20  MHz)  with  audio  135 

Syneriek  SYM-1  Microcomputer  IBQ 
ALL  BOOK  and  SOFTWARE  PRICES  DISCOUNTED 

Hewlett  Packard 

Write  or  call  for  puces 

DATASHIELD  BACKUP  POWER  SOURCE 

Model  PC-200    200  wall  unit  265 

Model  XT-300    300  watt  unit  _ 370 

ATARI -WE  STOCK  ENTIflE  LINE 

SPINNAKER  and  Broderbund  Software  tiisttjck. 


A  B  Computers 


WRITE  FOR  CATALOG.  Add  $1.50  per  order  for  United  Parcel. 
We  pay  balance  ol  UPS  surface  stripping  cfiarges  on  all  prepaid  orders 
(add  extra  for  mail.  APO/FPO,  air|.  Prices  include  casti  discount. 
Regular  prices  slightly  tiigher.  Prices  subiect  to  ctiange. 


63  GETS$:IFS$<>"S"ANDS$<>"L"THEN63 

:rem  253 

64  PRINTS$"{5  DOWN}":POKE53280,6:LV=- iPOK 
E209,88:POKE210,6:IFBW=141THENGOSUB500 

;rem  146 

65  PRINT"PRESS  <F1>  TO  CHANGE  BASKET  SIZE 

IN  PLAY";GOSUB700  : rem  22 

67  POKE63, . :POKE65, .:POKE67, . :SYSX:NS$="0 
00000" :GOSUB202  ; rem  60 

68  POKEV+29,-{S$="L") :GOSUB340:GOTO71 

;reni  163 

70  GOSUB200  srem  121 

71  PRINT" {home} {17  DOWN) {2  SPACES ) {GRN} PR 
ESS  FIRE  BUTTON  WHEN  READYI"   : rem  226 

72  N=244-PEEK(54297) :N=N*-(N>=24)-24*(N<2 
4>:P0KEV,N  : rem  93 

73  POKEV+29,  (  PEEK-(V+29  )~(  PEEK  ( 197  )=4)  )  AND 
1:IF(PEEK(56321)AND4)THEN72    srem  158 

74  PRINT"{UP}I31  SPACES  }''!P0KE2  54,  .;SYSTt 
IFPEEK(68)THENa0  : rem  252 

76  M=54273:POKEF+ll, . :N=5 ; 1=125 :J=5 3280 :F 
0RA=NT0ISTEP3:P0KEJ,A  : rem  15 

7 7  POKEM , AAND { LV+5 ) * 2 :NEXT : POKEF+5 , 186 : PC 
KEF+6, . :POKEF+12,186!POKEF+13, . : rem  54 

79  POKEJ, . :GOTO70  :rem  29 

80  POKEF+11, .sPOKEF+4, . ;P0KEF+1 , 186 :POKEF 
+4, 129: POKEF+5, 18B ! POKEF+6, .    : rem  30 

81  P0KEV+4,PEEK( (PEEK{ 781 )+4)+V) :P0KEV+5, 
232:B=50:D=-.9:E=V+3:F=10264   : rem  175 

82  FORA=BTO.STEPD:POKEE,A:N=RND( . )*21:M=N 
*1.4;P0KEN+BL,PEEK(N+BL)ANDRND( , )*256 

: rem  23 

83  POKEM+F , PEEK C M+F ) ORRND { . ) * 256 : POKE780 , 
M : SYS49540 : NEXT : POKEV+41 , 0 ; POKE53  281 , 0 

srem  47 

84  LV=LV-2:P=P+l:POKEV+2, . tLV=LV*- CLV>-1 ) 
;FORA=BLTOBL+20:POKEA, .  :reml97 

85  NEXT:BL=BL-20:IFBW=141THENGOTO600 

:rem  1 

86  GOSUB200 : IFP <  3THENGOSUB340 : GOTO? 1 

srem  41 

88  1FVAL(NS$)=VAL(HS$)ANDVAL(NS$)>0THENGO 

TO900  srem  99 

90  POKEV+21, . SPRINT" {HOME} {7  D0WN}{CYN)"S 

PC(9)"**  GAME  OVER  **" :BL=872 ;P= . 

srem  87 
96  GOSUBB00:GOTO600  srem  144 

100  DATA  255,255,255,109,182,218,27 

srem  192 

101  DATA  109,180,13,182,216,11,109,176 

srem  69 

102  DATA  7,255,224,0,0,0,255,255,255 

srem  220 

103  DATA  91,109,182,45,182,216,27,109 

srem  33 

104  DATA  176,13,182,208,7,255,224,0,0,0 

srem  109 

105  DATA  255,255,255,109,182,218,27,109 

srem  139 

106  DATA  180,13,182,216,11,109,176,7 

srem  231 

107  DATA  255,224,0,0,0,0,0,60,0,0,60,0 

srem  22 

108  DATA  0,60,0,0,60,0,0,60,0,0,60,0,0 

srem  11 

109  DATA  60,0,0,60,0,0,60,0,0,60,0,0,60 

srem  66 

110  DATA  0,0,60,0,0,60,0,0,60,0,0,60,0 

srem  4 

111  DATA  0,20,0,0,85,0,1,85,64,5,85,80 

srem   50 
94     COMPUTB     September  1984 


112  DATA  21,85,84,170,170,170,0,0,0,0,0 

srem  90 

113  DATA  0,0,0,0,0,0,0,0,0,24,0,0,60,0 

srem  247 

114  DATA  0,60,0,0,36,0,0,126,0,0,126,0 

srem  21 

115  DATA  0,255,0,1,255,128,1,255,128,3 

I  rem  60 

116  DATA  253,192,1,253,128,1,251,128,0 

srem  66 

117  DATA  255,0,0,60,0,0,0,0,0,0,0,0,0,0 

srem  49 

118  DATA  120,173,2,220,72,169,192,141,2 

srem  117 

119  DATA  220,169,64,141,0,220,160,128 

srem  19 

120  DATA  234,136,16,252,56,169,220,237 

srem  79 

121  DATA  25,212,176,2,169,0,24,105 

srem  122 

122  DATA  24,141,0,208,104,141,2,220,88 

srem  54 

123  DATA  172,30,208,169,8,133,253,162,2 

srem  12  3 

124  DATA  254,5,208,189,4,208,240,33,169 

irem  135 

125  DATA  188,56,253,5,208,176,13,152,37 

srem  139 

126  DATA  253,240,8,169,0,157,4,208,76 

srem  35 

127  DATA  14,193,189,5,208,201,232,208,5 

srem  128 

128  DATA  169,1,133,68,96,232,232,6,253 

srem  88 

129  DATA  224,12,240,3,76,51,192,234,164 

srem  125 

130  DATA  197,192,4,208,17,165,255,201 

srem  32 

131  DATA  64,208,11,169,1,24,109,29,208 

srem  75 

132  DATA  41,1,141,29,208,132,255,164,64 

srem  120 

133  DATA  240,99,132,64,173,2,208,24,101 

srem  120 

134  DATA  254,141,2,208,198,2,16,84,169 

srem  86 

135  DATA  31,160,0,133,2,173,27,212,133 

srem  55 

136  DATA  254,56,237,2,208,176,8,173,2 

srem  37 

137  DATA  208,56,229,254,160,1,74,74,74 

srem  91 

138  DATA  74,74,133,254,56,233,4,176,225 

srem  140 

139  DATA  192,1,208,9,165,254,169,0,56 

srem  41 

140  DATA  229,254,133,254,230,66,230,66 

srem  79 

141  DATA  166,66,224,10,208,4,162,0,134 

srem  65 

142  DATA  66,169,80,157,7,208,173,2,208 

srem  90 

143  DATA  157,6,208,234,234,206,64,0 

srem  183 

144  DATA  169,146,133,150,198,150,165 

srem  247 

145  DATA  150,141,1,212,230,9,165,9,141 

srem  63 

146  DATA  8,212,201,30,208,3,141,11,212 

I rem  50 


147  DATA  172,52,3,32,204,255,32,204,255 

trein  120 

148  DATA  136,192,0,208,248,76,0,192,165 

:rem  138 

149  DATA  251,248,24,101,67,133,67,169,0 

:rem  135 

150  DATA  101,65,133,65,169,0,101,63,133 

srem  113 

151  DATA  63,216,162,4,181,63,72,41,15 

:rem  23 

152  DATA  24,105,48,157,19,5,104,74,74 

:rem  33 

153  DATA  74,74,24,105,48,157,18,5,202 

:rem  32 

154  DATA  202,16,230,169,129,141,11,212 

:rem  65 

155  DATA  169,0,133,9,198,252,208,3,133 

(rem  84 

156  DATA  68,96,76,92,192,160      trem  122 

157  DATA  0,177,251.17,253,145,253,177,251 
,74,200,145,253,208,242        i rem  86 

158  DATA  230,252,230,254,165,254,201,52 

:rem  123 

159  DATA  208,230,96,234,238,0,201,174,0 

trem  124 

160  DATA  201,189,0,200,168,138,105,109 

trem  71 

161  DATA  170,173,2,208,157,0,200,234,140, 
141 ,41 , 208 , 141 ,32 , 208 ,141,33, 208, 96 , 3 
2  srem  22 

162  DATA  48,126,103,103,103,103,103,127 

srem  106 

163  DATA  63,49,28,60,124,28,28,28,127 

:rem  41 

164  DATA  63,50,126,103,7,127,112,115,127 

:rem  166 

165  DATA  63,51,126,103,7,63,7,103  irem  81 

166  DATA  127,63,52,6,15,27,51,127,127 

srem  32 

167  DATA  7,15,53,126,96,126,103,7,103 

:rem  29 

168  DATA  127,63,54,126,103,96,126,103 

:rem  34 

169  DATA  103,127,63,55,126,103,7,14,28 

I rem  78 

170  DATA  28,28,28,56,126,103,103,127 

:rem  234 

171  DATA  103,103,127,63,57,126,103,103 

:rem  63 

172  DATA  127,7,103,127,63,104,0,0,0,0 

irem  253 

173  DATA  239,239,85,254  : rem  125 

200  NS$=""jFORA=1298TO1303:NS$=NS$+CHR$(P 
EEK(A))iNEXT  :rem99 

201  AA=INT(VAL{NS$)/2000)-INT{Q/2000) :IFA 
ATHENGOSUB300  srem  176 

202  Q=VAL(NS$) !IFQ>=VAL(HS$ )THENHS$=NS? 

:rem  147 
204  POKE53280, . iLV=LV+l tLV$=STR$ (LV)+" 

{2  SPACES}  ":IFLV>1THEN208     .-rem  151 

206  FORA=1024TO1057 STEP2 I POKEA, 95  i POKEA+1 
, 105 :POKE54272+A, 4 :POKE54273+A, 10 ;NEX 
T  trem  199 

207  FORA=1984TO2023 s POKEA, 104! POKEA+542 72 
,12! NEXT  trem  138 

208  PRINTCHR$ ( 19 ) CHR$ ( 159 ) CHR? ( 18 ) SPC ( 34 ) 
CHR$(169)"LIGHT"CHR$(146);jP0KEZ,13 

trem  86 

209  PRINTSPC( 34 )CHR5 ( 127 )CHR$ ( 18 ) "SAVER" t 
POKEZ , 7  i PRINTSPC ( 74 ) " SCORE  t " SPC { 74 ) ; 

trem  152 


210  PRINTCHR$ ( 5 ) NS?  t  POKEZ , 8  t  PRINTSPC ( 76 ) " 
HI "SPC (76) "SCORE t "SPC (74) CHR? ( 5 )HS$ 

trem  89 

211  PRINTSPC(34);!POKE2,6:PRINT"*";iPOKEZ 
, 10 t PRI NTHU?;: POKEZ, 6 t PRINT"*" 

srem  252 

212  POKEZ, 14 t PRINTSPC (74) "LEVEL: "SPC ( 75 )C 
HR$  ( 5 ) LV$  t  F=54272 : POKEF+20 , 128 

trem  194 
216  POKE2040,13:POKE2041,14!POKEF+19,  . 

trem  125 

2 20  POKEV+1 , 205  t  POKEV+3 , 50  t  POKEV+23 , 3  t  POK 

EV+28,2sPOKEV+39,7 tPOKEF+18, . srem  156 

222  FORA=4T014STEP2  t  POKEV+A , . : POKEV+A+1 , A 
*8+140:POKE2040+A/2,15:NEXT    trem  71 

223  PORA=10240TO10303t POKEA, . tNEXT:POKE20 
42,160tPOKE66, . tP0KE2, .        trem  34 

226  POKEV+37 , 12  t  POKEV+38 , 14  tF0RA=41T046 ! P 
OKEV+A, 1 tNEXT : POKEV+21 , 255  t  POKEF+19 , . 

trem  238 
228  POKEF+11 , 0 : POKEF+7 , 0  t  POKEF+13 , 128  t POK 
EF+12,. tK=260-SL*LV:POKEF+20,128 

trem  248 

230  P0KE64 , LV*2+9  t  POKE252 , LV*  2+9 1  LN=LV  t  PO 

KEF+15 , 25 5  1 1 FLN> 100THENLN=100  t  rem  208 

232  POKE251,INT(LN/10)*16+LN-INT(LN/10)*1 
0 1 POKEF+14 , . t  POKEF+18 , 129  1 1 FK< 1THENK= 
1  trem  113 

233  POKEF+1, .!POKEP+4, . tPOKEF+5, . t POKEF+6 
,12atP0KEF, . tPOKEF+24,143sPOKEF+4,33 

trem  24 

234  POKES 20, K ! POKEV+41, . t RETURN   trem  156 

300  F=54272tPOKEF+4, . t POKEF+5, 128 s POKEF+6 
,128iPOKEF+4,17tREM  EXTRA  BASKET 

trem  45 

301  FORA=lT04tST(A)=PEEK(62+A) sNEXTtBL=BL 
+20*AAtIFBL>872THENBL=872      trem  17 

303  P=P-AAtP=P*-(P> . ) tRESTORE     trem  251 
310  RESTORE tFORA=832TO832+20*(3-P)tREADMs 

POKEA+1, .t POKEA, M  : rem  18 

330  POKEF+1, INT (RND(. )*256) tNEXT !FORA=1TO 

4tPOKE62+A,ST{A) tNEXT:POKEF+l, . tRETUR 

N  trem  179 

340  POKEF+4, . tPOKEP+5, 128 t POKEF+6, 128: POK 

EF+4,33tB=28+INT(RND( .)*8)*32:C=. 

trem  216 
345  FORA=C TOB s POKE V+2 ,A:P0KEF+1, AAND 1 0 : NE 

XT: POKEF+4,.  trem  63 

350  POKEF+6, 128 t POKEF+5, . {POKEF+4, 33 :POKE 
P+l,.s RETURN  :rem  189 

400  PRINT"{CLR}!6  DOWN] £23 {RVS} g*3 
{8  RIGHT]{CYN}  " iPRINT" ^21 {RVS} 
{8  RIGHT) {CYN}  {4  RIGHT} 163  "tPOKE204 
0,15  trem  114 

410  PRINT " i 23 {RVS}  {8  RIGHT} {CYN} 

{4  RIGHT} 163  ": POKEV+1, 101 tPOKEV+39,1 
tPOKEV, 32: POKEV+21, 1  : rem  39 

420  PRINT" i23 {RVS}  {RIGHT} (YEL}  {RIGHT} 
E53£{3  SPACES} {RIGHT} {CYN}  f  i*3E63 
{off } i *3 { RVS } { 2  SPACES ] { RIGHT } { PUR } £ 
{2  SPACES }{ off }£{ RVS }{RIGHT){ RED }£ 
{2  SPACES }i* 3 { RIGHT }{BLU}  [2  RIGHT} 
{RIGHT} {GRN}£  1*3 {RIGHT) E33  fg*3":P 
OKEV+29, .  irem  26 

430  PRINT"i2i{RVS}  {RIGHT) { YEL)  {RIGHT} 
g53  {2  RIGHT}  {RIGHT} {CYN}  {OFF}£ 

(RVS) {right}  {right]E63  {2  rightT 

{PUR} {OFF)E*3E@3{2  RIGHT} {RVS} {right) 

{RED}  {2  RIGHT}  {RIGHT} {BLU) 

{2  RIGHT)  {RIGHT} {GRN}  {OFF} gP3 {RVS) 
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{ SPACE }f RIGHT }g3 3  {0FP)£?*3 " tPOKEV+2 
3, .  ;rem  185 

440  PRINT"g23{RVS}  (RIGHT) {YEL}  {RIGHT} 
gSl  {2  RIGHT)  {RIGHT} {CYN}  {2  RIGHT) 
{SPACE) {RIGHT} 163  (RIGHT) £{2  RIGHT} 
{ PUR ) { OFF } gT§  t  RVS } g *  H  RIGHT } { RED } 
{2  RIGHT)  {RIGHT}{BLU} tOFP}g*i{RVS} 
i *l£{ OFF }£{ RVS }{ RIGHT }{GRN} 
{3  RIGHT}1"33  "  :rein  87 

450  PRINT ''g2H RVS)  {RIGHT}  (YEL)  {OFP}g*l 
{RIGHT)g5§g*l{RVS){3  SPACES } {RIGHT } 
{CYN}  {2  RIGHT)  {RIGHT} g6g {OFF} g*i 
{RVS}  {0FF)£{RVS}{PUR}£{2  SPACES) 
{OFF)£{ RIGHT}  { RED  }E*HWS]  (OFF}f 
{RVS)  {2  RIGHT) {BLU) {OFF }g*3£ 
{2  RIQHT}{GRN}i*|{RVS}  {OFF}£{ RIGHT} 
{RVS)i33  "  srem  18 

460  PRINT"§23{RVS)  {6  RIGHT) g53  ":PRINT" 
E23{RVS}  {3  RIGHT}g5i{0FF}g*§{RVS) 
{ 2  SPACES } { OFF )£" i PRINT " g 2 3 { RVS } 
U  SPACES)E*|{3  DOWN}"        :reni  123 

470  PRINT"{WHT}{4  SPACES}USE  PADDLES  IN  P 

ORT  ONE  TO  PLAY ." I RETURN       irem  58 
500  QW=49164!RW=49517  irem  172 

510  FORAW=.T022:BW=PEEK{AW+QW) iPOKEAW+QW, 

PEEK(AW+RW) iPOKEAW+RW,BW:NEXT:rem  109 
520  IPBW=141THENP0KE49262 , 96  s POKE49230 ,63 

:P0KE49378 , 52 ! POKE49379 , 3 :GOTO540 

irem  129 
530  POKE49262,165 JPOKE49230, 14 tP0KE49378 , 

64iPOKE49379,0jPOKE49481,252:RETURN 

srem  199 
540  P0KE49481, 255! RETURN  srem  180 
550  IFPEEK( 51457 )=114THENGOTO560  : rem  123 
552  HS$="000000"  :HU$=''C-64"  rGOSUB590 

srem  170 
560  HT$="":FORA=51458T051467:HT?=HT?+CHR$ 

(PEEK{A)) :NEXT  : rem  208 

562  HS$=LEFT$ ( HT$ , 6 ) ! HU?=RIGHT$ { HT$ , 4 ) 

srem  166 
564  RETURN  ! rem  127 

590  HT$=HS$+HU?+"  " :P0RA=1T0LEN{HT$ ) :POKE 

51457+A,ASC{MID$(HT$,A,1)) :NEXTiRETUR 

N  ;rem  179 

600  POKE53269, . : 1PPEEK( 49164)=141THENG0SU 

B500  : 1 FSL=0THENSYSX :NS$= " 000000 " 

:rem  129 
605  POKE53272, 28  SPRINT" {HOME} {12  DOWN} 

{YEL) {6  SPACES)PRESS  <F1>  TO  START... 

"  ;rem  36 

607  IFSL=0THENSL=6:GOSUB700  srem  202 
610  GOSUB202 :GOSUB340 !POKE254, 0 iPOKE820, 2 

55:POKE68,0:SYST  srem  231 

620  IFP=2THENP=1 :BL=BL+20  srem  243 
630  IFPEEK(68)=1THENGOTO80  srem  74 
640  BL=B72sSYSX:POKE54296,05POKE53269,0sP 

OKE53280,0:GOSUB800sGOTO60     srem  38 
700  RESTORE i B=589  s  FORA= . TOB  s  READM  s  NEXT  s  FO 

RA=.TO10sREADMsJ=M*8+12288    srem  252 
710  PORB= . T07 ! READM : POKEB+ J , M  s NEXTB , A : RET 

URN  srem  132 

800  RESTORE  s  FORA=83 2 T0895  s  READM  s  POKEA, M  s  N 

EXTSPOKE54273, .sRETURN         srem  98 
900  F=54272!FORA=0TO24:POKEF+A, . sNEXTsA$= 

"*  HIGH  SCORER  *" s POKE646 , 6 SGOSUB990 

srem  15 
910  P0KE646 , 7  s  POKEF+6 , 240 : POKEP+4 , 17  s  POKE 

F+24,143  srem  68 

920  P0RA=1T0LENCA$) sFORB=.TO200STEP10:POK 

EF+l,B!NEXTsPRINTMID$CA5,A,l)" {RIGHT} 


"; iNEXT  trem  85 

930  POKEF+24,140  5A=1397  srem  239 

940  PRINT, "{13  DOWN) {CYN}  TURN  PADDLE  TO 
{ SPACE ) CHOOSE  LETTERS . . { DOWN } " 

srem  253 

941  PRINT"  PUSH  BUTTON  TO  MOVE  CURSOR" 

srem  67 

942  PRINT" {HOME} {9  DOWN}g63{l5  SPACES} |§3 

g@3  g@t":HU$=""  -rem  29 

943  POKEA+40 , 30  s  POKEA+F+40 , 10  s POKEF+A, 1 

srem  221 
945  B=29-PEEK( 54297 )/9sPOKEA,BiPOKE646,(P 

EEK(646)+1)AND255!GOSUB990    srem  125 
950  POKEP+1 , B*8+15  jIFPEEK( 56321 )AND4THENG 

OT0945  srem  33 

955  POKEF+4,129sFORC=0TO90STEPl .5:P0KEP+1 

,CsNEXTsP0KEF+4, 17  s POKEA+40, 32  J rem  75 
960  A=A+2sHU$=HU$+CHR?(B+64) s IFA<1405THEN 

943  srem  231 

962  PRINT"{4  DOWN) " i POKEF+4,0 SPOKE51457 , 1 

14  srem  81 

965  GOSUB590  s  PRINT" { HOME } " s  FORA=1T01 3 

srem  183 
970  PRINT" (32  SPACES) " tNEXT!GOTO90 

srem  198 
990  PRINT" {HOME) {2  DOWN) {RIGHT )U********* 

********************j "SPC  f 9) "B"SPC (29 

T"!"  "srem  65 

995  PRINT "(RIGHT) J** ******** ****** ******* 

******K{ HOME }13  DOWN) 12  RIGHT) " f iRETU 

RN  ,rem  191 


The  player  just  missed  a  light  bulb  in  the  64  version  of 

"Lightsaver." 

Program  2:  vrc  ughtsaver/Muc  ^ 

Be  sure  to  read  the  "Tiny  MLX"  article  before  typing. 

Version  by  Gregg  Peele,  Assistant  Programming 

Supervisor 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 

program  in, 


6430 
6436 
6442 
6448 
6454 
6460 
6466 
6472 


S011 

S049 
sl69 
!093 
!l44 

S016 
S017 
sl69 


,016, 
,048, 
,000, 
,003, 
,032, 
,032, 
*169, 
,003, 


000, 
057, 
141, 
169, 
078, 
236, 
007, 
141, 


000, 

000, 
092, 
024, 
020, 
017, 
141, 
064, 


158,052,011 
000,000, 190 
003,141,076 
141,015,237 
032,100,204 
032,042,179 
074,003,221 
003,173,113 
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6478  :076, 003, 016, 024, 032, 203 

6484  1017,172,074,003,196,251 

6490  :208, 003, 076, 077, 016, 032 

6496  :015, 019, 032, 246, 018, 169 

6502  !010, 141, 076, 003, 206, 076 

6508  :003, 032, 108, 017, 032, 125 

6514  :016, 032, 038, 019, 032, 179 

6520  ^019, 173,072,003,208, 207 

6526  :076, 205, 018, 169, 000, 141 

6532  :060,003, 141,061,003, 141 

6538  1074,003,032,042,017,169 

6544  ;003, 141, 072, 003, 169, 010 

6550  :141, 076, 003, 096, 169, 000 

6556  8141,019,145,169,127,141 

6562  :034, 145, 173, 008, 144, 074 

6568  S074, 074, 074, 073, 015, 056 

6574  :233, 003, 016, 002, 169, 000 

6580  !l41, 064, 003, 168, 162, 002 

6586  :185, 162, 031, 208, 008, 169 

6592  S032, 153, 162,031,032,023 

6598  :017, 185, 184,031, 208, 008 

6604  :169,032,153,184,031,032 

6610  ;023,017, 185, 206,031, 208 

6616  :008, 169,032, 153, 206, 031 

6622  1032,023,017,200,202,016 

6628  -.213,172,064,003,196,252 

6634  :240, 071, 164, 252, 169, 032 

6640  1162,003,153,184,031,153 

6646  :206, 031, 200, 202, 016, 246 

6652  1172,064,003,169,027,153 

6658  sl84, 031, 153, 206, 031, 132 

6664  :252, 169, 000, 153, 184, 151 

6670  :153, 206, 151,200,169,028 

6676  :153, 184, 031, 153, 206, 031 

6682  :169,000,153, 184, 151,153 

6688  1206,151,200,169,029,153 

6694  :184, 031, 153, 206,031,169 

6700  5000,153,184,151,153,206 

6706  :151, 096, 173, 082, 003, 240 

6712  5003,206,082,003,238,060 

6718  :003, 173, 060, 003, 208, 003 

6724  5238,061,003,162,004,160 

6730  1016,024,032,240,255,174 

6736  5060,003,173,061,003,032 

6742  :205, 221, 056, 173, 060, 003 

6748  5237,092,003,133,170,173 

6754  5061,003,237,093,003,005 

6760  5170,144,012,173,060,003 

6766  5141,092,003,173,061,003 

6772  5141,093,003,162,008,160 

6778  5016,024,032,240,255,174 

6784  5092,003,173,093,003,032 

6790  5205,221,096,169,206,133 

6796  5167,169,031,133,168,173 

6802  5141,002,208,251,169,228 

6808  5133,170,169,031,133,171 

6814  5169,228,133,180,169,151 

6820  5133,181,162,021,160,021 

6826  5177,167,208,012,072,169 

6832  5032,145,167,104,145,170 

6838  5169,000,145,180,136,016 

6844  5237,056,165,167,233,022 

6850  5133,167,165,168,233,000 

6856  5133,168,056,165,170,233 

6862  5022,133,170,165,171,233 

6868  5000,133,171,056,165,180 

6874  5233,022,133,180,165,181 

6880  5233,000,133,181,202,016 

6886  5193,096,032,148,224,165 

6892  5142,162,003,010,202,208 

6898  5252,024,101,142,010,101 


176 

6904 

029 

6910 

246 

6916 

083 

6922 

102 

6928 

169 

6934 

174 

6940 

034 

6946 

223 

6952 

029 

6958 

219 

6964 

030 

6970 

123 

6976 

130 

6982 

228 

6988 

022 

6994 

085 

7000 

208 

7006 

181 

7012 

113 

7018 

063 

7024 

037 

7030 

112 

7036 

047 

7042 

200 

7048 

104 

7054 

138 

7060 

158 

7066 

123 

7072 

072 

7078 

227 

7084 

149 

7090 

153 

7096 

010 

7102 

068 

7108 

172 

7114 

044 

7120 

123 

027 

7126 

136 

7132 

000 

7138 

184 

7144 

047 

7150 

156 

7156 

036 

7162 

132 

7168 

244 

7174 

154 

7180 

071 

7186 

171 

7192 

095 

7198 

012 

7204 

140 

7210 

213 

7216 

121 

7222 

191 

7228 

164 

7234 

074 

7240 

207 

7246 

171 

7252 

060 

7258 

044 

7264 

036 

7270 

101 

7276 

076 

7282 

149 

7288 

108 

7294 

221 

7300 

064 

7306 

195 

7312 

104 

7318 

:142, 

105, 

003, 

133, 

142, 

074, 

5  074, 

056, 

233, 

012, 

176, 

252, 

5105, 

015, 

133, 

251, 

096, 

169, 

sl28, 

141, 

019, 

145, 

169, 

255, 

5  141 

034 

145, 

169, 

147, 

032, 

5210 

255 

162, 

011, 

160, 

005, 

5024 

032 

240, 

255, 

160, 

000, 

5 185 

193 

019, 

032, 

210, 

255, 

5  200 

192 

012, 

208, 

245, 

169, 

5014 

032 

210, 

255, 

162, 

013, 

5  160 

005 

024 

032 

240 

255, 

5  160 

000 

185 

205 

019 

032, 

5  210 

255 

200 

192 

012 

208, 

:245 

032 

228, 

255 

240 

251, 

5  201 

049 

144, 

247 

201 

054, 

:176 

243 

056, 

233, 

048 

073, 

5  255 

141 

063, 

003, 

169 

147, 

5032 

210 

255, 

174, 

063 

003, 

5  024 

169 

000, 

105 

048 

202, 

:208 

251 

141, 

082, 

003 

162, 

5  003 

160 

016, 

024, 

032 

240, 

:255 

160 

000, 

185, 

010 

020, 

5032 

210 

255, 

200, 

192 

007, 

s208 

245 

162, 

006 

160 

016, 

5024 

032 

240 

255 

160 

000, 

:185 

017 

020, 

032 

2l0 

255, 

5  200 

192 

012, 

208, 

245 

162, 

5010 

160 

016, 

024 

032 

240, 

5  255 

160 

000, 

185, 

029, 

020, 

:032 

210 

255, 

200, 

192, 

007, 

5  208 

245 

162, 

013, 

160, 

016, 

5024 

032 

240, 

255, 

160, 

000, 

5  185 

036 

020, 

032, 

210 

255, 

s200 

192 

015, 

208, 

245 

162, 

5022 

160 

001, 

024, 

032, 

240, 

:255 

160 

000, 

185 

059 

020, 

5032 

210 

255 

200 

192 

019, 

5  208 

245 

173, 

017, 

145, 

041, 

5016 

208 

249, 

160, 

021, 

169, 

5032 

153 

228, 

031, 

136, 

208, 

5  248 

096 

160, 

002, 

162 

022, 

5024 

032 

240, 

255, 

160 

000, 

:185 

217 

019, 

032 

210 

255, 

5200 

192 

018, 

208, 

245 

032, 

5228 

,255 

,240 

251 

,201 

089, 

:240 

007 

201, 

078, 

240, 

006, 

:076 

226 

018, 

076 

029 

016, 

5000 

164 

251, 

140, 

074, 

003, 

5 162 

001 

024, 

032 

240 

255, 

sl60 

000 

185 

235 

019 

032, 

5210 

,255 

,200 

,192 

,016 

,208, 

5  245 

,096 

,172 

074 

,003 

,162, 

5001 

,024 

,032 

,240 

,255 

,160, 

5  000 

,185 

,251 

,019 

,032 

,210, 

5255 

,200 

,192 

,014 

,208 

,245, 

5  096 

,160 

,021 

,185 

,228 

,031, 

5208 

,028 

,169 

,036 

,153 

,228, 

5031 

,169 

,000 

,153 

,228 

,151, 

5072 

,152 

,072 

,032 

,142 

,019, 

5032 

,179 

,019 

,104 

,168 

,104, 

5  206 

,072 

,003 

,076 

,076 

,019, 

:136 

,208 

,220 

169 

,032 

,153, 

5  228 

,031 

,162 

,011 

,160 

,016, 

5  024 

,032 

,240 

,255 

,173 

,082, 

5  003 

,205 

,084 

,003 

,240 

,013, 

5160 

,000 

,185 

,051 

,020 

,032. 

s210 

,255 

,200 

,192 

,008 

,208, 

5245 

,173 

,082 

,003 

,141 

,084, 

5003 

,056 

,073 

,255 

,170 

,169, 

5000 

,032 

,205 

,221 

,162 

,015, 

079 
033 
005 
099 
172 
057 
227 
160 
042 
220 
000 
147 

117 
041 
204 
143 
098 
063 
136 
185 
075 
236 
252 
159 
079 
093 
143 
124 
041 
038 
208 
121 
154 
188 
163 
113 
092 

019 
019 
246 
154 
181 
138 
121 
240 
010 
197 
138 
226 
149 
093 
026 
248 
239 
150 
019 
126 
042 
061 
184 
036 
252 
204 
152 
156 
062 
181 
098 
102 
017 
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,115 
,100 
,247 
,016 
,226 
,044 
,138 
,089 
,012 
,094 
,069 
,230 
,133 
,130 
,019 
,141 
,148 
,112 
,046 
,112 
,206 
,051 
,203 
,138 
,193 
,163 
,145 
,058 
,193 
,175 
,010 
,202 
,245 
,236 
,168 
,107 
,148 
,073 
,129 
,202 
,087 
,181 
,211 
,249 
,013 
,110 
,237 
,000 
,128 
,114 
,117 
,072 
,100 
,012 
,186 
,225 
,240 
,178 
,195 


Program  3:  Atari  Data  Loader 

Refer  to  the  "Automortic  Proofreader"  articie  before  typing  this 
program  in. 

DH  1000  X  =  0!Y  =  0;?  '■ -CCLEARJLOADING  CH 

ARACTER  SET" 
OH  1010  POKE  752,  1 
LH  1020  CHSET=14336:  FOR  1=0  TD  511;P 

DKE  CHSET+I , PEEK (57344+1 > :NE 

XT  I 


7324 

:160 

,016 

7330 

:174 

,072 

7336 

!205 

,221 

7342 

:014 

,144 

7348 

J 144 

,162 

7354 

;179 

,019 

7360 

:246 

,169 

7366 

:024 

,173 

7372 

:141 

,082 

7378 

:003 

,162 

7384 

il36 

,192 

7390 

:144 

,076 

7396 

:083 

,065 

7402 

:076 

,069 

7408 

1040 

049 

7414 

:080 

076 

7420 

:071 

065 

7426 

:032 

079 

7432 

:031 

094 

7438 

:157, 

017 

7444 

:157, 

157 

7450 

tl57, 

017 

7456 

1032, 

032 

7462 

!017, 

028 

7468 

:069, 

144 

7474 

!l57, 

157 

7480 

:069, 

144 

7486 

:069, 

068 

7492 

:066, 

083 

7498 

:157, 

157 

7504 

t032, 

032 

7510 

:157, 

157 

7516 

1083, 

032 

7522 

:032, 

084 

7528 

J065, 

082 

7534 

J  000, 

128 

7540 

t208, 

247 

7546 

;129, 

153 

7552 

:247, 

160 

7558 

:153, 

000 

7564 

:160 

039 

7570 

:216, 

028 

7576 

:007, 

185 

7582 

:029, 

136 

7588 

tl85 

206 

7594 

:136, 

016 

7600 

:005 

144 

7606 

:036, 

066 

7612 

:000, 

234 

7618 

:007, 

000 

7624 

:085, 

170 

7630 

:094, 

188 

7636 

;024, 

024 

7642 

:024, 

000 

7648 

:031, 

063 

7654 

:255, 

255 

7660 

!l28, 

192 

7666 

:254, 

000 

7672 

:203, 

000 

,024 

,032 

,240 

,255, 

,003 

,169 

,000 

,032, 

,096 

,169 

,015 

,141, 

,169 

,129 

,141 

,013, 

,010 

,138 

,072 

,032, 

,104 

,170 

,202 

208, 

,000 

,141 

,014 

,144, 

,082 

,003 

,105 

r016. 

,003 

,096 

,172 

,082, 

,080 

,202 

,208 

,253, 

,255 

,208 

,246 

,096, 

,073 

,071 

,072 

,084, 

,086 

,069 

,082 

,032, 

,086 

,069 

,076 

032, 

,045 

,053 

,041 

,063, 

,065 

,089 

,032 

065, 

,073 

,078 

,032 

089, 

,082 

032 

078 

063, 

,157 

,017 

094 

157, 

,095 

033 

035, 

017, 

,144, 

064, 

144, 

032, 

,032, 

157, 

157, 

017, 

,032, 

017, 

157, 

157. 

,083, 

067, 

079, 

082, 

,030, 

072, 

073, 

017, 

,083, 

067, 

079, 

082, 

,156, 

083 

080, 

069, 

,144, 

066 

085, 

076, 

,017, 

157, 

157, 

157, 

,076, 

069, 

070, 

084, 

,032, 

032, 

157, 

157, 

,080, 

082, 

069, 

083, 

,070, 

073, 

082, 

069, 

,079, 

032, 

083, 

084, 

,084, 

160, 

000, 

185, 

,153, 

000, 

028, 

200, 

,160, 

000, 

185, 

000, 

,000 

029 

200 

208, 

,007 

,185 

,150 

020, 

,028 

136 

016 

247, 

,185 

,158 

,020 

,153, 

.136, 

016, 

247, 

160, 

,198 

020 

153 

008, 

,016 

247 

160 

015, 

,020 

153 

024 

029, 

,247 

169 

255 

141, 

,096 

024 

,024 

024, 

,066 

102 

060 

000, 

,117 

058 

029 

014, 

,000, 

170 

085, 

170, 

,255, 

000, 

000, 

175, 

,120, 

240, 

224, 

024, 

,024, 

024, 

024, 

024, 

,001, 

003, 

007, 

015, 

,127, 

255, 

255, 

255, 

,255, 

255, 

255, 

000, 

,224, 

240, 

248, 

252, 

,024, 

024, 

060, 

086, 

,000 

000 

000, 

000, 

HH  1025 
SO  1030 
CN  1035 


756 


CHS 


HC 
CJ 
HC 
DJ 
HJ 
CD 
ID 


1040 
1041 
1042 
1043 
1044 
1045 
1046 


HA  1047 
NB  104  8 
CH  1050 

IC  10&0 

flF  1070 

EI  1080 

DC  1090 

KC  1  100 

AB  1  1  1  0 

BF  1130 

CH  1140 

HB  1150 

AB  1  190 

m  1191 

IH  1  192 

OH  1193 

CN  1536 

C«  1542 

JL  1548 

DB  1554 

Aft  1560 

HL  1566 

at  1572 


1578 
1584 
1590 
1596 
1602 
1608 


HD  1614 


if  1620 
FF  1626 
LH  1632 
JB  1638 
1644 
1650 


CF 
JB 
GP  1656 

PN  1662 
6A  1668 
!0  1674 
IH  1680 
HG  1686 


RESTORE  1045:?  "REDEFINING  C 

HARACTER  SET" 

READ  A: IF  A=-l  THEN  POKE 

, CHSET/256: GOTO  104  1 

FOR  J=0  TO  7;READ  BsPOKE 

ET+A*a+J , B: NEXT  J 

GOTO  1030 

?  "LOADING  ML  PROGRAM  1" 

READ  A; IF  A=-l  THEN  1045 

POKE  1536+X, A: X=X+1 

GOTO  1042 

?  "LOADING  ML  PROGRAM  2" 

READ  A: IF  A=-l  THEN  ?  "RUNNI 

NG  LIGHTSAVER" : RUN  "D:LIBHTS 

AVER" 

POKE  13470+Y, A: Y=Y+1 

GOTO  1046 

DATA  16,126,103,103,103, 

103, 127, 63 

DATA  17,  28,  60,  124, 

27, 127 

DATA  18, 126, 103. 

5, 115, 127 

DATA  19, 126, 103, 

27,  63 

DATA  20, 6, 15, 27, 


103, 
>S,  1 


1  1 


28, 28, : 
7,  127,  1  i: 
7,63,7, 103, 1 
127, 127,7 


51 


96, 126, 103, 1 
103, 7, 14,28, 28, 2 

103, 127, 103, 
103, 103, 127,7, 10 


,15 

DATA  21,126,96,126,103,7,103 

,127,63 

DATA  22, 126, 103, 

03, 127, 63 

DATA  23, 126. 

8,28 

DATA  24, 126, 103, 

103,  127,63 

DATA  25, 126. 

3, 127,63 

DATA  1,2,11,14,10,11,14,5,5 

DATA  2,128,224,160,240,160,1 

60 , 80 , 80 

DATA  3,21,85,85,85,85.21,21, 

5 

DATA  4,84,85,117,245,117,84, 

84,80, -1 

DATA  173,36,2,141,51,6 

DATA  173,37,2,141,52,6 

DATA  169,0,141,205,6,169 

DATA  7,  162,6,  160",28,32 

DATA  92,228,104,96,173,152 

DATA  52,240,17,173,156,52 

DATA  141,206,6,32,53,6 

DATA  206,206,6,173,206,6 

DATA  208,245,76,255,255,206 

DATA  205,6,173,205,6,16 

DATA  12,169,7,141,205,6 

DATA  141,5,212,32,80,6 

DATA  96,173,205,6,141,5 

DATA  212,96,165,88,24,105 

DATA  72,141,121,6,165,89 

DATA  105,3,141,122,6,24 

DATA  173,121,6,105,40,141 

DATA  124,6,133,5,173,122 

DATA  6,105,0,141,125,6 

DATA  133,6,162,15,160,39 

DATA  185,255,255,153,255,255 

DATA  136,16,247,56,173,121 

DATA  6,141,124,6,233,40 

DATA  141,121,6,173,122,6 

DATA  141,125,6,233,0,141 

DATA  122,6,202,208,219,24 
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JH  1692 
JP  1698 

m  1704 

00  1710 


JO 
6A 
PN 

NP 
PJ 
H6 
FE 
PP 
C6 
PI 
K 
PI 
HC 
JF 
FB 
CI 
IIF 
IS 

m 


NF 
JK 
A8 
CH 
PK 
CF 
NF 

m 

LN 
BC 

tlB 
CJ 

DD 
NA 

in 

NO 
LH 
AE 
K. 
OH 


1716 
1722 
1728 
1734 
1740 
13470 
13476 
13482 
13488 
13494 
13500 
13506 
13512 
13518 
13524 
13530 
13536 
13542 
13548 
13554 
PC  13560 
BH  13566 
KF  13572 
6«  1357G 
13584 
13590 
13596 
13602 
13608 
13614 
13620 
13626 
13632 
1363B 
13644 
13650 
13656 
13662 
13668 
13674 
13680 
13686 
13692 
13698 
PB  13704 


EI 
J8 

cm 

AB 

AD 
CL 
JB 


13710 
13716 
13722 
13728 

13734 
13740 
13746 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


13752 
13758 
13764 
13770 
13776 
13782 
13788 
13794 
13800 
13806 
PC  13812 
16  13818 
tlL  13824 


PF 
FP 
JN 
ID 
HN 
»F 
CD 
NI 
KF 
PM 


173, 124,6, 141, 173,6 
173, 125,6, 141 , 174,6 
169,0, 160,39, 153,255 
255, 136, 16,250, 160,40 
136, 177,5,208,5, 192 
0,208,247,96,201,5 
176,242, 169, 0, 141, 152 
52, 169, 1, 141, 153,52 
96,  -1 
169,80, 141,3,210, 169 
1, 141, 152,52, 165,45 
141, 143,52, 169, 100, 141 
144,52, 169,0, 141, 146 
52,141,151,52,141,145 
52, 141, 153,52, 165,88 
24, 105,24, 133,208, 165 
89, 105, 1 , 133,209, 165 
88,24, 105, 121, 133,3 
165, 89, 105, 2, 133, 4 


DATA 

DATA 

DATA 

1 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


172. 


162,255,202 


224,0,208, 251, 136, 192 
0,208,246, 173,5,208 
201,0,240,6,32,  106 

54. 32. 54. 54. 174. 143 
52,236, 14  4, 52, 240, 14 
144,2,202,202, 232, 142 
143,52, 142,0,208,76 
199,53, 160, 120, 136, 177 
208,201,0,208,7, 192 
0,208,245,76, 35,53 
201,5, 176,238,76, 134 
53, 172, 145,52,204, 147 
52, 16,222,238, 145,52 
169, 172, 141 , 1 ,210, 165 
67,141,3,210,169,55 
141,2,210, 169, 120, 141 
0,210, 173, 143,52,56 
233,46,74,74, 168, 169 
1, 145,208, 169,2,200 
145,208, 152,24, 105,39 
168, 169,3, 145,208,200 
169,4, 145, 208, 173,5 
208, 201 , 0, 240, 6,32 
106, 54, 32, 54, 54, 165 
20, 105, 2, 24, 141 , 149 
52, 166,20,236, 149,52 
208,249,  169,0,  141 ,  1 
210,  141,3,210,  173,  10 
210, 109, 148,52, 74, 74 
170, 173, 10, 210,205, 143 
52, 144, 13,208,3,76 
134, 53, 138, 24, 109, 144 
52,76, 175,53, 138, 141 

149,52, 173, 144, 52, 56 
237, 149, 52, 201, 54, 144 
211,201, 198, 176,207, 14 

144,52, 173,5, 208,201 
0,240,6,32, 106,54 
32, 54, 54, 173, 5, 208 
201 ,0, 240, 6, 32, 106 
54,32,54,54, 173, 112 

2.73.255.201 .42. 144 
10, 201 , 196, 176, 14, 141 
1 , 208, 76,244, 53, 169 
47, 141 , 1 , 208, 76, 244 
53, 169, 192, 141 , 1, 208 
141, 150,52, 173,5,208 
201,0.240,6,32, 106 
54,32,54,54, 173, 152 


0,240,38, 172 
204, 147,52,208 
151 ,52,201, 1 
238, 151 ,52, 165 
05, 140, 141, 146 
20,205, 146,52 
, 169,0, 141, 152 
96,76,218,52 
66,0,32,62 
34, 212, 133,213 
217,32,230,216 
32,2, 177,243 
27,32,93,54 
5, 164,2.200 
, 96, 170, 173, 71 
3, 70,3, 72 
, 146, 96, 169,0 
208, 141 , 155, 52 
33, 85, 169, 0 
165,0,24, 109 
133, 0, 165, 1 
33, 1 , 173, 150 
0, 56, 233, 42 
4, 105, 160, 1 68 
41. 149,52, 177 
, 240,45,201 
1 , 201 , 3, 240 
4,240,93, 169 
, 200, 232, 224 
228, 162, 1 , 238 
173, 149, 52, 201 
0, 152, 56,233 
169, 0,76, 155 
69, 0, 145, 3 
, 3, 152, 24, 105 
169, 0, 145,3 
,3,96, 169, 0 
36, 145, 3, 152 
40, 168, 169, 0 
00, 145. 3, 96 
45,3,200, 145 
6, 233, 40, 168 
45,3, 136, 145 
9,0, 145,3 
,3, 152,56,233 
169, 0, 145,3 
,3,96,-1 


Program  4:  Atari  Ughlsaver 

Version  by  Chris  Poer,  Editorial  Programmer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in, 

DL  2  POKE  13464, 0:POKE  1  06  ,  64  :  GRAPH  I 
CS  0:OPEN  #1 , 4, 0, "K: " : HIGH=0: Q= 
USR < 1536) : DIM  A*(3),B«(1) 
HK  5  GOSUB  700:eRAPHICS  0:GDSUB  800: 

B*="  " 
KS  10  PUT  #6,  125;  POKE  82,0 
KB  13  POKE  752,  1  :  SETCOLOR  2,0,0:GDSU 

B  600:PDKE  87,0 
PB  15  BULB=134S9:  MEN  =  3;LEV=13460:SC= 

0 
IF  20  POKE  BULB,20:POKE  LEV,1:EX  =  200 

0:XX=0:AM=20 
DE  100  IF  SOHIGH  THEN  HIGH  =  SC 
KL  1  10  GOSUB  900 
GH  130  Q  =  USR(13470) 
KL  135  SC=PEEK  <0) +PEEK  (  1  )  »256 


LK  13830 

DATA 

52,201, 

CP  13836 

DATA 

145,52, 

LK  13842 

DATA 

32, 173, 

CN  13848 

DATA 

240,11, 

BP  13854 

DATA 

20,24, 1 

P6  13860 

DATA 

52, 165, 

DB  13866 

DATA 

208, 155 

NF  13872 

DATA 

52, 104, 

61  13878 

DATA 

165, 1, 1 

DA  13884 

DATA 

54,96, 1 

CF  13890 

DATA 

32, 170, 

m  13896 

DATA 

160,0, 1 

JH  13902 

DATA 

72,41,1 

JA  13908 

DATA 

104, 48, 

DJ  13914 

DATA 

208, 238 

CP  13920 

DATA 

3,72, 17 

fli  13926 

DATA 

138, 160 

CD  13932 

DATA 

141 .30, 

*:i  13938 

DATA 

169,6, 1 

(IK  13944 

DATA 

133,84, 

JA  13950 

DATA 

148, 52, 

LN  13956 

DATA 

105.0, 1 

JE  13962 

DATA 

52, 162, 

flj  13968 

DATA 

74,74,2 

BI  13974 

DATA 

169,0, 1 

IE  13980 

DATA 

3,201 , 1 

Id  13986 

DATA 

2.240,6 

Nf  13992 

DATA 

77,201 , 

K   1399S 

DATA 

0, 145,3 

OP  14004 

DATA 

13, 144, 

CE  14010 

DATA 

149,52, 

LJ  14016 

DATA 

5,240, 1 

m   14022 

DATA 

52, 168, 

m   14028 

DATA 

54, 96, 1 

OF  14  034 

DATA 

200, 145 

Jft  14040 

DATA 

39, 152, 

JD  14046 

DATA 

200, 145 

LD  14052 

DATA 

145,3, 1 

m   14058 

DATA 

24, 105, 

Jft 14064 

DATA 

145, 3, 2 

LL  14070 

DATA 

169, 0, 1 

HJ  14076 

DATA 

3, 152,5 

HB  14082 

DATA 

169,0, 1 

DK  14088 

DATA 

3,96,  16 

PK  14094 

DATA 

136, 145 

m  14100 

DATA 

40. 168, 

PC  14  106 

DATA 

200, 145 
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DL  137 


EP  140 

JK  145 

y.t  150 

ftj  160 

JE  1B0 

PJ  190 

K!  200 


FN  2  10 
DA  500 

CB  505 


ND 

510 

CH  515 

m   550 

DJ 

600 

BJ  615 

GO  627 
HN  630 

PE  640 
CD  650 


IF     SOEX     THEN     EX  =E  X +2000  :  MEN  = 

MEN+1;FDR     1=1     TO     100:SOUND     0, 

INT (RND<1 >  *255)  .  10,  14:NEXT     I; 

SOUND     0,0,0,0 

IF  PEEK ( 13465) =1  THEN  GOSUB  5 

00 

IF  XX=1  THEN  XX=0:GOTO  100 

SOUND  0, 140, 10, 12:F0R  1=1  TO 

120:NEXT  I : SOUND  0,90,10,14 

FOR  1=1  TO  S0:NEXT  I:SOUND  0, 

0,0,0 

POKE  LEV, PEEK <LEV) +1 

AM=AM+4: POKE  BULB,AM+4 

POKE  13468, INT (PEEK (LEV) /5) +1 

: IF  INT<PEEK<LEV) /5) +1=7  THEN 

POKE  13468,6 
GOTO  100 

SOUND  0, 200, 12, 14: FOR  1=1  TO 
80:NEXT  I : SOUND  0,0,0,0:XX=1 
IF  PEEK(LEV)>1  THEN  POKE  LEV, 
PEEK(LEV)-1 
MEN  =  MEN-1 :  IF 
POKE  BULB, AM: 
/5) +1<7  THEN 
EEK (LEV) /S) +1 
RETURN 

A=56:POKE  54279. 
A:POKE  756,56 
POKE  0,0: POKE  1. 
1 

POKE  53249, 90: POKE  53248,90 
FOR  I=PMBASE+512  TO  PMBASE+76 
8:P0KE  I,0;NEXT  I 
POKE  704,216:POKE  705,118 
RESTORE  670: FOR  I =PMBASE+550+ 
Y  TO  PMBASE+562+Y: READ  AiPOKE 

I , A: NEXT  I 

+Y  TO  PMBASE+ 
E  I , A: NEXT  I 
,24,24,24,24, 

, 255, 255, 255, 

0,  60 

E  53257, 1:P0K 


TION  4,3:?  #6    138 


MEN=0  THEN  850 
IF  INT (PEEK (LEV) 
POKE  13468, INT (P 


A: PMBASE=256» 


0:POKE  13468, 


DB  660 

FOR  I=PMBASE+739 

750+Y:READ  A:POK 

FD  670 

DATA  24,24,24,24 

24, 24,60, 126, 255 

EB  680 

DATA  255,255,255 

126,  126,  126, 60,6 

NH  690 

POKE  53256, 1 ; POK 

E  623, 1 iRETURN 

KN  700 

GRAPHICS  ia:POSI 

;  "LitdTlsSSEr" 

PI  7J0 

FOR  1=1  TO  120:X 

55)  : SOUND  0, X,  10 

K  720 

SOUND  0,80, 10, 14 

00:NEXT  I 

LK  730 

SOUND  0,0,0,0:eR 

E  53248, 220:POKE 

JD  740 

POSITION  1,4:?  # 

PK  750 

POSITION  3,6:7  # 

l:J»J*«l" 

PO  760 

GET  «1,DIF: IF  DI 

9  THEN  750 

PB  770 

DIF=<DIF-48) :POK 

ETURN 

NJ  800 

DL=PEEK(560)+4+P 

PA  801 

FOR  1=2  TO  6:P0K 

I:POKE  DL-1,6+6 

FJ  810 

FOR  1=7  TO  24:P0 

XT  I ; POKE  87, 1 :R 

JE  850 

IF  PEEK (0) +PEEK ( 

HEN  HIGH=PEEKC0> 

m  855 

POKE  53248, 220SP 

HC  860 

POKE  53277, 0:PDS 

=INT (RND( 1) «2 
, 12: NEXT  I 
:FDR  1=1  TO  1 

APHICS  18:P0K 

53249, 220 
6:  "333^ 


6;   "SEEa 

F>57     OR     DIF<4 

E     13466, DIF:R 

EEK (561) «256 

E     DL+I,6:NEXT 

4 

KE     DL+I,36:NE 

ETURN 

1  )  «256>HIGH     T 

+PEEK (1 ) »256 

OKE  53249,220 

ITION  1,2:?  # 


M  870 

DG  880 
JJ  890 

D]  900 

ED  910 

CN  920 


HP  930 


ID  940 


EN  950 


HB  960 
PE  970 

CB  980 


6;"(E>  TO  END  PROGRAM    <P)  TO 

PLAY  AGAIN" 
GET  #1,W:IF  W=69  THEN  Q=USR<5 
B4S4) 

IF  WO80  THEN  870 

EOSUB  700:GRAPHICS  0;GOSUB  80 
0:eOTD  10 

POSITION  0,0:?  #6;  "SCORE  "  ;  SC 
At=STR« (PEEK (LEV) ) : IF  PEEK(LE 
VX10  THEN  A*  (LEN  CA*> +1  )=B« 
POSITION  0,1:?  #6: "HI  SCORE  " 
;HIGH:PDSITION  12,0!?  «6;"LEV 
EL  ";A« 

POSITION  15,1:?  «6;"MEN  "  ;  MEN 
:POKE  53248, 220: POKE  53249,22 
0 

POKE  53277, 0:FOR  1=1  TO  200:P 
OKE  13464, 1:NEXT  I : POKE  13464 

.0 

POSITION  0,2:?  »6;"  hit  paddl 
e  buttonC3  SPACES>to  begin  ro 
und" 

IF  PTRIG(0)=1  THEN  960 
POSITION  0,2:?  #6;" 
■[35  SPACESJ" 

POKE  559,46:POKE  53277, 3:P0KE 
77,0:RETURN 


Program  5:  IBM  PC/PCJr  Ughtsaver 

Version  by  Tim  Victor,  Editorial  Programmer 

5  CLEAR  ,&HD000 

10  ON  ERROR  GOTO  20000: GOSUB  8000 

65  NP= 1 00 : DF=  J 5 : LE VEL= 1 : M I SSES=0 

68  SC=0:C=0 

70  CLS; GOSUB  4000 

80  BP=JSF* (STICK (0)-3) 

100  CALL  BLANK:PUT  (BP,  183), C7. 

110  LP=B0:PUT  (LP,0),L7. 

114  FOR  XX=0  TO  6:  XP(X"/.)=0:NEXT 

115  GOSUB  5000 

120  X7.=5:CF=1:Z=STRIG(0) 
130  BNUM=INT(10«RND( 1 ) )+10:BN=l 
135  GOSUB  2000: IF  CF=0  THEN  310 
137  GOSUB  3000 

IF  BN<BNUM  THEN  GOSUB  1000  ELSE  XP(X 
7.)  =0;  X7.=FNDEC  (Xy.) 

139  IF  BN<BNUM+5  THEN  BN=BN+1 ;  X7.=FNDEC  (X 
7.)  :GOTO  135 

140  DF=DF«1. l:GOTO  114 

310  PUT  (BB,  153)  ,B7.:PUT  (BB,185),B7. 

320  FOR  1=1  TO  20: SOUND  2000, . 2: SOUND  32 

767, .2: NEXT 

325  DF=DF/1. 1:MISSES=MISSES+1 

330  IF  M1SSES=4  THEN  GOSUB  6000: GOTO  65 

340  GOSUB  7000: GOTO  70 

999  'move  lamp  and  make  new  bulb 

1000  NP=NP+4*INT(DF« (RND ( 1 ) -. 479) ) 
1010  IF  NP>200  THEN  NP=200 

1020  IF  NP<0  THEN  NP=0 

1030  CALL  BLANK:PUT  (LP,  0)  ,  L7.:PUT  (NP,0> 

,L7.:LP=NP 

1040  XP(X7.>=NP+12:PUT  <XP  (X7.)  ,28)  ,  B% 

1045  SOUND  37, . 1 

1050  Xy.=FNDEC(X7.) 

1060  RETURN 

1999  'is  bulb  about  to  break? 

2000  BB=XP(X7.) 

2010  IF  BBO0  AND  (BB<BP~3  OR  BB>BP+26) 
THEN  CF=0: RETURN 
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2020  IF  BB  THEN  PUT  <BB,  17B>  ,  By.:C=C+l :  SO 

UND  2000, . 1 

2025  IF  STRIG(0)  THEN  BDSUB  7000: WHILE  S 

TRIG(l) :WEND:2=STRIG<0) 

2030  RETURN 

2999  'drop  all  bulbs 

3000  FOR  iy.=  153  TO  23  STEP  -25 
3010  XP=XP(X7.) 

3020  IF  XP  THEN  PUT  (XP,  I"/.)  ,  B7.:  PUT  <XP,I 

■/.+25)  ,B7. 

3030  NBP=JBF«(STICK(0)-3) 

3040  CALL  BLANKsPUT  (BP,  183)  ,  CV.:  PUT  (NBP 

,183),C-/.:BP=NBP 

3050  Xy.=FNDEC  ( X7.)  :  NEXT 

3060  RETURN 

3999  'draw  scoreboard 

4000  LINE  C0,0)-(240, 199) ,3,B 

4005  LINE  (240,0)-(319, 199) ,1,B 

4006  LINE  (242,2)-(317,45) , 1,B 

4007  LINE  (242,47)-(317,S6> , 1,B 

4008  LINE  (242,88)-(317,127),l,B 

4009  LINE  (242, 129)-(317, 168) , 1,B 

4010  LOCATE  3,33:PRINT  "LEVeL: " 
4020  LOCATE  8,33:PRINT  "SCORE:" 
4030  LOCATE  13,33;PRINT  "HIGH:" 
4040  LOCATE  ia,33:PRINT  "BROKEN:" 
4300  RETURN 

4999  'update  score 

5000  SC=SC+C«LEVEL:C=0 

5005  IF  CF=0  THEN  LEVEL=LEVEL-1  ELSE  LEV 
EL=LEVEL+1 

5006  IF  LEVEL=0  THEN  LEVEL=1 
5010  LOCATE  5, 34: PRINT  LEVEL 

5020  LOCATE  10, 34: PRINT  FNFMTt (STR* (SO ) 
5025  LOCATE  15,34: PRINT  FNFMT* (STR* (HI ) ) 
5030  LOCATE  20,34: PRINT  MISSES 
5200  RETURN 

5999  ' end  of  game 

6000  LOCATE  20,12:PRINT  "PRESS  TRIGGER  F 
OR  ANOTHER  SAME" 

6005  GOSUB  5000 
6010  WHILE  STRIG(1)=0:WEND 
6020  IF  SOHI  THEN  HI=SC 
6030  RETURN 

6999  'wait  -for  button  press 

7000  LOCATE  23, 33: PRINT  "PRESS"; 
7010  LOCATE  24, 33: PRINT  "BUTTON"; 

7020  WHILE  STRIG(1)=0:IF  INKEY*="e"  OR  I 

NKEY«="E"  THEN  END 

7030  WEND 

7040  LINE  (256,176)-(31S, 191),0,BF 

7050  RETURN 

7999  'initialize  graphics 

8000  SCREEN  1; COLOR  0,1: KEY  OFF:CLS 
8005  STRIG  ON: RANDOMIZE  TIMER 

8010  DIM  B%(25)  ,Cy.  (47)  ,Ly.  (119) 

8020  DEF  FNDEC(XV.)=Xy.-l-7«(Xy.=0) 

8030  DEF  FNFMT«(A*)=LEFT$("0000",5-LEN(A 

*) >+RIGHT*(A«,LEN(A$)-l) 

8040  BLANK=8<HD000 

8050  FOR  I=BLANK  TO  BLANK+9:READ  A 

8060  POKE  I, A: NEXT 

8100  DRAW  "bnill7,  10c2ta45d20ta0134" 

B105  DRAW  "ta-45u20bmll7, 15p2,2" 

8110  LINE  (116, 0)^(118, 11), 3, BF 

8115  LINE  (i00,24)-(134,25) ,3,BF 

8120  GET  (100,0)-(134,25),L-/. 

8125  LOCATE  11, 6: PRINT  "THIS  IS  NO  ORDIN 

ARY  LAMP. " 

8130  PRINT  "ANGERED  BY  ITS  BORING  AND  ME 


NIAL  JOB, " 

8135  FOR  1=1  TO  600: NEXT 

8140  LINE  (115,31)-(119,40),3,BF 

8145  LINE  (112,36)-(122,38),3,BF 

8150  LINE  (115,2S)-<119,30),1,BF 

8155  LINE  (114,34)-(120,34) ,3 

8160  LINE  (113,35)-(121,35) ,3 

8165  LINE  <113,39)-(121,39) ,3 

8170  PRESET  (115,28) : PRESET  (119,28) 

8175  LINE  (117,3a)-(119,38) , 1 

8180  LINE  <119,37)-(120,37>,1 

8185  PSET  (120, 36), 1 

8187  GET  (112,2a)-tl22,40>,B7. 

8190  LOCATE  14, 4: PRINT  "IT  IS  DROPPING  F 

RAGILE,  HELPLESS" 

8195  PRINT  "LIGHTBULBS  TO  THEIR  CERTAIN 

DESTRUCTION. " 

8200  DRAW  "C3BM103, ia3TA30D10TA0L12" 

8205  DRAW  "TA-30U10BM103, 187P3,3" 

8210  GET  (97,  183) -(109,  192)  ,C7. 

8215  PUT  (97,  183)  ,C7.,  PRESET 

8220  GET  (97,  183) -(109,  192)  ,C7. 

8225  FOR  J=30  TO  63  STEP  4 

8230  LINE  (J, ia2)-(J+10, 192) 

8235  LINE  ( J, 182) - ( J-10, 192) 

8240  NEXT 

8245  LINE  (30, 182) - (63, 182) , 0 

8250  LINE  (30, 183)-(63, 183) ,3 

8255  LINE  (30, 192) - (63, 192) , 3 

8260  DRAW  "BM30, 183TA30D10" 

8265  DRAW  "BM63, 183TA-30D10" 

8270  PUT  (23,  183)  ,C7.,AND 

8275  PUT  (58,  183)  ,C-/.,  AND 

8280  GET  (30,  183) -(63,  192)  ,0: 

3285  LINE  (0, 182) - C 120, 192) , 0, BF 

8290  LOCATE  17,1:PRINT  "USING  YOUR  BASKE 

T,  YOU  MUST  SAVE  THE" 

8295  PRINT  "BULBS  FROM  THIS  PSYCHOPATHIC 

APPLIANCE. " 
8300  BP=2«(STlCK(0)-3> 
8305  IF  BP>210  THEN  BP=210 
8310  CALL  BLANK:  PUT  (BP,183),C7. 
8400  LOCATE  20, 1:PRINT  "TO  BEGIN,  MOVE  T 
HE  BASKET  ALL  THE  WAY" 
3410  LOCATE  21, 3: PRINT  "TO  THE  RIGHT  AND 

PRESS  THE  BUTTON. " 
8420  WHILE  STRI6(1)=0 
8425  NBP=2« (STICK(0)-3) 
8430  IF  NBP>210  THEN  NBP=210 
8432  CALL  BLANK:PUT  (BP,  183)  ,C7.:  PUT  (NBP 
,183)  ,Cy.:BP=NBP:WEND 
8435  JSF=210/ (STICK(0)-3) 
S440  RETURN 

10000  DATA  186,218,3,237,37 
10010  DATA  8,0,116,250,203 
20000  IF  (ERR=5  OR  ERR=6>  AND  (ERL=3040 
OR  ERL=100)  THEN  BP=210:PUT  (BP,133>,Cy. 
ELSE  ON  ERROR  GOTO  0 
20010  RESUME  NEXT  © 
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THE  WORLD  INSIDE  THE  COMPUTER 

Build  A  Computer 
In  Your  Mind 

Fred  D'lgnozio.  Associote  Editor 


In  my  recent  column, 
"The  Morning  After," 
in  the  May  and  June 
1984  issues  of  COM- 
PUTE!, I  wrote  about  a 
new  kind  of  pro- 
gramming that  I  be- 
lieve people  are 
beginning  to  do  on 
their  computer.  I 
called  this  "neoprogramming" 
to  distinguish  it  from  traditional  programming  in 
BASIC  or  Pascal  and  from  "no  programming"  in 
which  people  treat  the  computer  as  a  thinking 
machine  and  let  it  do  their  thinking  for  them. 
In  this  month's  column  I'd  like  to  explore 
neoprogramming  and  see  how  it  can  be  related 
to  computer  activities  that  will  help  people  de- 
velop thinking,  learning,  and  communication 
skills  that  they  can  practice  and  refine  using  the 
computer,  and  that  they  can  also  take  away  from 
the  computer  and  use,  on  their  own,  in  all  areas 
of  their  lives. 

Neoprogramming 

Neoprogramming  can  be  defined  as  borrowing 
the  most  powerful  ideas  from  programming  lan- 
guages and  turning  them  into  thinking  skills  that 
people  can  use,  inside  their  head,  in  their  daily 

life. 

Another  way  to  look  at  neoprogramming  is 

as  a  toolbox  that  has  three  kinds  of  tools  inside: 

Fred  D'lgnazio  is  a  computer  enthusiast  and  author  of 
several  books  on  computers  for  young  people.  His  books 
include  Katie  an4  the  Computer  (Creative  Computing), 
Chip  Mitchell:  The  Case  of  the  Stolen  Computer  Brains 
(Button /Lodestar),  The  Star  Wars  Question  and 
Answer  Book  About  Computers  (Random  House),  and 
How  To  Get  Intimate  Witjfi  Your  Computer  (A  10-5tep 
Plan  To  Conquer  Computer  Anxiety)  (McGraw-Hill). 

As  the  father  of  two  young  children,  Fred  has  become 
concerned  with  introducing  the  computer  to  children  as  a 
■wonderful  tool  rather  than  as  a  forbidding  electronic  de- 
vice. His  column  appears  monthly  in  COMPUTE!. 
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D  Tools  to  Help  You  Think 
D  Tools  to  Help  You  Learn 
D  Tools  to  Help  You  Communicate 

These  are  practical  tools  that  will  be  valuable 
no  matter  what  people's  goals  are.  Mastering 
these  tools  is  more  worthwhile  than  simply 
learning  how  to  operate  a  computer. 

Thinking,  learning,  and  communication  tools 
can  be  found  in  many  places — in  textbooks,  in 
courses,  in  jobs,  etc.  But  they  can  also  be  found, 
in  a  concentrated  form,  in  the  computer.  And 
through  extensive  use  and  familiarity  with  these 
tools  on  a  computer,  people  can  learn  how  to  use 
the  tools  to  think  better  without  the  computer. 

How  Not  To  Use  A  Computer 

Learning  how  to  operate  a  computer,  on  its  own, 
will  not  automatically  guarantee  people  a 
successful  career,  help  them  learn  how  to  use 
more  advanced  computers  of  the  future,  or  give 
them  thinking  skills  they  can  apply  to  other 
areas  of  their  lives. 

Also,  it  is  possible  to  have  a  relationship 
with  computers  that  actually  deadens  or  stifles 
the  ability  to  think.  Many  people,  for  example, 
use  computers  mechanically  and  passively.  They 
spend  their  time  in  front  of  a  computer  entering 
information,  making  trivial,  routine  queries,  or 
typing  other  people's  documents. 

The  Thinking  Appliance 

There  is  a  strong  assumption  in  many  people's 
minds  that  computers  are  labor-saving  appli- 
ances. People  ask,  "What  can  I  do  on  a  com- 
puter?" But  what  they  mean  is,  "What  can  the 
computer  do  for  me?"  The  labor  that  many  people 
hope  computers  will  save  is  not  mechanical  labor 
but  thinking  labor.  For  most  of  us,  thinking  is 
work — work  that  we  would  avoid  if  we  had  the 
chance. 

Many  people  would  be  happy  (though  few 
would  admit  it)  if  computers  would  do  their 
thinking  for  them.  In  the  near  future,  with  the 


advent  of  expert  systems  and  friendlier  computers, 
there  is  a  great  risk  that  computers  will  take  over 
more  and  more  of  the  thinking  that  people  do. 
As  a  result,  people  and  organizations  will  be- 
come increasingly  dependent  on  computers. 

Dumbo's  Feather 

For  adults  at  work  and  at  home,  and  for  children 
in  school,  there  is  the  risk  that  computers  will 
become  super  calculators.  When  they  want  to  do 
real  work  or  thinking,  they  will,  by  habit,  turn  to 
the  computer.  The  computer  will  become  an  ad- 
junct to  the  person's  mind.  The  computer  will  be 
like  Dumbo's  feather.  Dumbo  the  elephant  could 
fly  because  of  his  big  ears,  but  he  thought  it  was 
because  of  his  magic  feather.  If  he  didn't  hold  on 
tight  to  his  feather,  he  was  afraid  he  couldn't  fly. 
People  may  come  to  feel  incapable  of  thought 
unless  they  do  it  using  their  computer. 

The  Computer  Crutch 

There  is  a  real  risk  that  many  people  will  use 
computers  as  a  crutch.  They  will  expect  computers 
to  do  their  thinking  for  them,  or  they  will  be 
afraid  that  they  cannot  think  without  the  aid  of 
the  computer.  Either  way,  they  will  be  tied  to 
computers  to  help  them  carry  on  their  daily 
affairs. 

Also,  if  people  use  computers  (or  anticipate 
using  computers)  as  a  crutch,  they  will  not  get 
the  most  out  of  them.  They  will  be  using 
computers'  powerful  computational,  communica- 
tions, and  information  handling  functions  slop- 
pily, indiscriminately,  and  inefficiently. 

The  Computer  Lever 

In  fact,  the  computer  is  not  a  thinking  machine,  a 
magic  feather,  or  a  crutch.  It  is  a  complex  lever. 
It  amplifies  our  abilities  to  move  information 
around,  but  we  must  position  and  guide  it  to  get 
what  we  want. 

In  addition,  we  don't  need  to  tie  ourselves  to 
the  computer  to  use  its  lever.  We  can  build  the 
lever  inside  our  head.  The  lever  is,  in  fact,  just  an 
assortment  of  thinking  skills  embedded  in  general- 
purpose  (BASIC,  Logo,  Pascal,  Assembler,  etc.) 
procedural  languages  and  special-purpose  (word 
processing,  spreadsheet,  file  handling)  builder  kit 
languages.  Once  we  have  acquired  these  skills, 
we  can  employ  them  on  the  computer,  or  we  can 
use  them  inside  our  heads.  If  we  recognize  and 
master  these  skills,  we  can  get  more  out  of  using 
the  computer,  and  we  can  become  less  depen- 
dent on  it  and  more  skilled,  on  our  own,  to 
think,  learn,  and  communicate. 

Building  A  Computer  Inside  Your 
Head 

Burrell  Smith,  Apple's  hardware  wizard  who 


helped  create  the  Macintosh,  has  written  that  he 
never  just  goes  into  a  workshop  and  builds  a 
new  computer.  Instead  he  first  spends  consid- 
erable time  building  mental  prototypes  inside  his 
head.  Burrell's  prototypes  are  like  a  writer's 
rough  drafts.  Using  mental  prototypes,  he  takes  a 
rough,  simple  idea  and  turns  it  into  a  cluster  of 
complex  ideas,  and  eventually  into  an  advanced 
concept  or  design.  Then  he  begins  building  the 
computer, 

Burrell  can  create  mental  prototypes  because 
he  has  a  computer  inside  his  head.  Burrell  has 
built  this  computer  from  an  array  of  thinking 
skills  he  has  learned  from  programming  real 
computers  and  from  his  other  experiences  in  life. 
These  skills  aren't  mysterious,  nor  are  they 
Burrell's  alone.  They  can  be  mastered  by  anyone. 

Environments  For  Thinlcing 

Programming  languages  offer  an  environment  for 
thinking — a  place  in  which  these  skills  can  be 
learned,  practiced,  mastered,  and  then  used. 
Learning  a  programming  language  offers  an 
opportunity  to  explore  new  avenues  of  thought. 

For  example,  if  taught  properly,  BASIC,  Pas- 
cal, Logo,  and  other  languages  can  help  people 
learn  algorithmic  thinking,  how  to  break  complex 
problems  into  smaller,  simpler  problems,  and 
how  to  organize  large  quantities  of  information. 

A  word  processing  program  can  give  people 
a  feeling  for  the  fluidity  and  mobility  of  words, 
ideas,  thoughts,  and  knowledge.  It  can  help  them 
learn  how  to  create  several  rough  drafts,  in  quick 
succession,  that  sharpen  an  image,  refine  a  con- 
cept, or  lead  to  new  ideas. 

A  spreadsheet  program  can  help  break  a 
complex  situation  down  into  lists  and  arrays  of 
smaller  parts.  It  can  display  the  whole  forest  and 
the  individual  trees  in  the  forest,  all  at  the  same 
time.  It  can  also  reveal  the  relationships  between 
all  the  parts. 

A  file-handling  (data  base)  program  can 
teach  how  to  organize  thoughts,  feelings,  experi- 
ences, and  information.  It  can  show  how  to  group 
facts  according  to  categories  of  likeness,  how  to 
sort  and  prioritize,  and  how  to  cross-reference 
facts  that  have  certain  traits  in  common. 

Graphing  languages,  word  processing  lan- 
guages, and  telecommunications  languages,  singly 
or  together,  can  teach  how  to  better  communicate 
feelings,  ideas,  and  desires.  They  can  teach  how 
to  use  visual  images  and  symbols,  page  layout 
and  design,  and  grammar  and  style  to  commu- 
nicate more  effectively. 

lyAagnets  For  Thinlcing,  Learning,  And 
Communication 

Computers,  like  other  media,  can  have  a  push- 
pull  effect,  depending  on  how  people  use  them. 
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If  computers  are  used  inefficiently  or  inappro- 
priately, they  have  to  be  pushed  just  to  get 
meager,  mediocre  results. 

On  the  other  hand,  computers  can  also  exert 
a  powerful  pulling  effect.  They  can  be  so  attrac- 
tive, so  elegant  that  they  will  pull  at  the  mind, 
like  a  magnet.  They  can  almost  seduce  a  person 
into  performing  a  task  or  solving  a  problem. 

Magnets  And  Road  Maps 

Computer  tools  can  pull  you  like  a  magnet  to  the 
computer,  but  they  can  also  become  magnets  in- 
side your  head  that  draw  related  information  and 
ideas  toward  them.  They  can  help  you  make 
sense  out  of  chaos.  They  can  let  you  mentally 
map  out  individual  facts  in  some  kind  of  logical, 
coherent,  and  practical  order. 

For  example,  what  happens  if  you  think 
about  two  things:  a  paper  route  and  a  spread- 
sheet? What  kind  of  associations  can  you  make? 
How  might  you  map  the  paper  route  onto  a 
spreadsheet? 

You  don't  need  to  use  a  computer  to  do  this 
exercise.  Instead,  you  can  perform  what  Albert 
Einstein  called  a  thought  experiment.  You  can 
build  a  mental  prototype  of  a  paper-route 
spreadsheet  inside  your  head. 

Associating  spreadsheets  and  paper  routes  is 
not  a  dull,  artificial,  or  mechanical  activity.  If  you 
have  the  proper  image,  appreciation,  and  passion 
for  using  spreadsheets  as  a  thinking  skill,  you 
start  mapping  the  paper  route  onto  the  spread- 
sheet even  before  you  know  it.  The  spreadsheet, 
as  a  thinking  tool,  or  metaphor,  will  draw  your 
thoughts  playfully  and  automatically.  When  you 
begin  thinking  about  the  paper  route,  your  mind 
will  unconsciously  make  an  association  with 
spreadsheets  and  figure  out  how  the  two  are 
related. 

For  example,  you  might  start  thinking  of  the 
different  houses  on  the  paper  route  as  columns. 
You  might  think  of  the  people's  names,  ad- 
dresses, telephone  numbers,  amounts  owed,  and 
your  last  collection  date  as  rows  in  the 
spreadsheet. 

You  might  also  think  of  mapping  the 
spreadsheeted  paper  route  into  a  data  base  in 
which  you  could  quickly  determine  who  owes 
you  for  the  papers,  who  is  the  most  overdue,  and 
what  might  be  the  most  effective  collection  route 
for  you  to  follow  on  your  bicycle  or  in  your  car. 

In  fact,  you  might  never  put  all  this  infor- 
mation onto  the  computer.  It  might  be  too  much 
trouble  entering  the  information  and  keeping  it 
up-to-date.  But  this  doesn't  matter  as  long  as  you 
have  a  mode!  of  the  spreadsheet  or  the  data  base 
inside  your  head. 

For  many,  many  applications  in  life,  building 
a  mental  prototype  inside  your  head  is  enough. 
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It's  not  practical  to  go  any  further.  The  value  of 
the  computer  skills  is  not  that  you  use  them  on 
the  computer,  but  that  you  can  organize  infor- 
mation, perform  tasks,  and  solve  problems  better 
inside  your  head.  This  helps  you  become  a  better 
thinker,  learner,  and  communicator  on  your  own. 
You  don't  need  a  real  computer  around.  You  can 
carry  one  inside  your  head. 

Learning  Through  Play 

One  of  our  greatest  joys  in  life  comes  when  we 
play — or  when  we  feel  we  are  playing.  We  might 
be  working,  but  if  it  feels  like  play,  we  will  be 
more  motivated,  more  intense,  and"  do  a  better  job. 

Passion  and  joy  are  not  attributes  of  work 
but  of  love.  And  when  we  love  what  we  are  doing, 
it  is  never  work.  No  matter  how  difficult  the 
activity  is,  it  feels  like  play. 

1  think  that  people  can  use  computers  to 
think  playfully,  learn  playfully,  and  communicate 
playfully.  The  real  joy  of  computing  doesn't 
come  from  getting  a  job  done  faster,  easier,  or 
cheaper;  it  comes  from  making  the  job  more 
challenging  and  more  fun  while  you're  doing  it. 

Are  You  A  Neoprogrammer? 

How  is  your  relationship  with  your  computer? 
Does  your  computer  challenge  you  to  think, 
learn,  and  communicate  better?  Does  it  make 
work  more  fun  and  interesting?  Have  you  been 
able  to  take  your  computer  skills  with  you  when 
you  leave  the  computer?  Can  you  think  on  your 
own  when  your  computer  is  turned  off? 

If  you  can,  congratulations.  Maybe  you  are  a 
neoprogrammer  and  you  don't  even  know  it. 

Whether  you  think  you  are  a  neopro- 
grammer or  not,  I'd  like  to  hear  your  thoughts. 
What  do  you  think  about  building  a  computer  in- 
side your  head?  Please  write  to  me: 

Fred  D'Ignazio 

2117  Carter  Road,  SW 

Roanoke,  VA  24015  © 
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DIGITAL  WIZARDRY 

3662A  S.  15th  St.  Milwaukee,  Wl  53221  (414)  383-2503 

HARDWARE  and  SOFTWARE  (disk  only)  lor  COMMODORE  64 

•  MASTER  COPV  Backup  FULL  disk  in  under  5  MirJUTES  wilh  single  1541 19.95 

•  MASTER  LOCK  Disk  Securily  uses  6  different  disk  deception  roulines        19.95 

•  COMPUTER  CUISINE  Kitcfien  tielper  stores  and  prims  up  lo  100  recipes   19.95 

■  BASIC  TRAINER  1  Lessons  in  BASIC  using  tem  and  understandable 

VOICE  19.95 

•  PROFESSIONAL  TEACHER'S  ASSISTANT  GREAT  studeM 

grading  system  19.95 

■  COMPUTER  COMEDIAN  Joke  atler  Joke  HEARTY  lauglis  guaranieed        19.95 

•  MATHWOHKS  Practical  mathematical  answers  to  everyday  problems         19.95 

■  COM-DIALER  1000+  phone  number  storage  with  TV  speaker  tone  dialer  19.95 

■  RESET  SWITCH  no  soldering  inside  computer  (warranty  remains  ^alid)       19.95 

■  MONITOR  CABLE  Bas!  cable  vet  lor  all  monitors  {especially  1702-1701) 

■  TEMPERATURE  PROBE  Build  it  yourswBlf  with  simple  soldering  tools 

•  A/D  with  over  14  BIT,  SOOmS  cenvferslon  with  LCD  readout 

•  CHEX  CHECKER  Super  simple,  no  accounting  necessary,  checktiook 
keeper 

•  LIBRARIAN  Simple  liling  system  for  BOOKS,  TAPES,  RECOFIDS. 
VIDEO  elC- 


12.95 
49.95 
179.95 

19.95 


19.95 


WE  TAKE  THE  BYTE  OUT  OF  HIGH 

COMPUTER  SOFT  R  HARDWARES! 


CALL  1-800-372-0214  AND  SAVE! 


SOFTWARE 

1 

■ 

A 

ATARI 

■ 

i   ==  =Ef= 

^^B^^^V     ^H      r     ^^ 

■ 

SHARP 

COMMOOORI 


[ccjL^cdl 


MODEMS 


Anchor 
Volksmodem 

Anchor  Mark  VI 
Anchor  Mark  XII 
Hayes  Smart  Com  11 
Hayes  300 
Anchor  Mark  VII 
Auto  Modern 

(Commodore) 
MPP  1000G  (Atari) 


COMPUTERS 


COMMODORE  64^ 


Commodore  64 

Atari  800XL 
SANYO  550.  550-2 
SANYO  555.  555-2 


CALL 

CALL 
CALL 

CALL 


SOFTWARE 


Zork  I,  it 
or  III 

Super  Base  64 
Paper  Clip  w/spell 
Home  Accountant 
Bank  Street  Writer 


$9095 


S29 


S69.g5 
S79.95 
S59.95 
S49.95 


DISK  DRIVES 


Commodore  $OOC00 

1541  4luU 

New  Commodore  Drive        CALL 

Atari  1050  S329.00 

Rana  1000  S289.00 

TrakAt-D2  S369.00 

Indus  GT  S369.00 


DISKETTES 


Computer  Ware-  $^C95 

house  ss/dd  lU 

Elephant  ss/sd  SI  6.95 

Elephant  ss/dd  Si  9.95 

Maxell  MDI  S24.95 

Verbatim  ds/dd  S24.95 

Ultra  Magnetics  ss/sd  $15.95 


PRINTERS 


Commodore  $OHnOO 

801  C  lU 

GeminilOX  $269.00 

Gemini  15X  $395.00 

Delta  10  $489.00 

Power  Type  5399.00 
AXIOM  AT  700  (color)        S499.00 

j25goo 

S249.00  I 

S289.00 

S279.00 


AXIOM  AT  550 

Atari  1025 
Atari  1027 
Commodore  1526 
Okidata82.83,84, 
92.93 


CALL 


MONITORS 


Commodore  $O^Q00 

Color  £.HU 

BMC  13"  color  $229.00 
Panasonic  (composite 

&  RGB)  S329.00 

SAKATA  13  color  S235.00 

BMC  (green)  S  69.00 

BMC  (yellow)  S  99.00 


COMPUTER 


Computers  and  Software  at  warehouse  prices. 


Send  for  free  monthly  special  sheet. 
S3  for  software,  hardware  & 
educational  catalogs 


8764  S.W.  133  STREET 
MIAMI,  PL  33156 
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REVIEWS 


Exodus:  Ultima  III  For 
Commodore  64 


Exodus:  Ultima  III  ushers  in  an 
exciting  new  era  of  fantasy  role 
playirg.  The  combination  of  su- 
perb graphics,  music,  and  excel- 
lent playability  makes  Exodus  a 
modem-day  masterpiece.  The 
game  presents  challenges  requir- 
ing clear,  creative  thinking  plus 
the  patience  and  determination 
to  thwart  hundreds  of  monsters 
during  a  quest  to  defeat  the  ulti- 
mate foe:  Exodus. 

An  Adventure  In  The 
Box 

Just  opening  the  box  is  an  ad- 
venture. Inside,  you  discover 
such  magical  items  as  a  book  of 
wizard  spells,  another  full  of  in- 
cantations, a  comprehensive 
playbook  along  with  a  quick  ref- 
erence guide,  and  a  colorful 
cloth  map  of  the  realm  to  be  ex- 
plored. Also  included  is  a  key  in 
the  form  of  a  black  disk  which, 
once  booted,  opens  the  way  to 
the  universe  of  Sosaria,  where 
your  dreams  and  fears  material- 
ize and  your  wits  are  your  only 
hope. 

After  making  a  copy  of  the 
master  side  of  the  disk,  you  are 
ready  to  begin  your  journey. 
First  you  must  create  several 
characters  to  do  your  bidding. 
Up  to  20  characters  may  reside 
per  disk,  and  up  to  4  may  travel 
together  at  one  time.  Each  char- 
acter has  a  name,  sex,  race,  pro- 
fession, and  the  four  attributes 
of  strength,  dexterity,  intelli- 
gence, and  wisdom.  Take  your 
time  and  choose  wisely  among 
the  five  possible  races  and  eleven 
professions.  Also,  consider 
which  attributes  are  important 
for  different  characters  while 
using  up  as  few  points  as  pos- 


David  K.  Peacock 


sible.  Because  there  are  so  many 
options  and  tradeoffs  involved, 
don't  be  surprised  if  some  of 
your  characters  just  don't  cut  it 
and  you  have  to  create  new 
ones.  The  opportunity  for  mul- 
tiple characters,  with  varying 
personalities  and  abilities,  en- 
hances the  playing  environment 
over  the  single  character  al- 
lowed in  Ultima  11. 

Sosaria  Awaits  You 

Once  your  party  is  formed,  the 
quest  begins.  The  disk  spins  for 
a  moment,  and  you  find  your- 
self in  the  magical  realm  of 
Sosaria  where  the  waves  lap  the 
shores  and  banners  atop  towns 
flap  in  the  breeze.  Walking 
along,  you  notice  open  grassy 
plains,  tall  mountains,  and  dark 
forests.  Your  ears  are  treated  to 
enchanting  medieval  tunes 
throughout.  Suddenly,  a  band  of 
nasty  ores  appear  heading 
straight  for  you.  You  duck  be- 
hind a  range  of  hills  where  the 
monsters  can't  find  you. 

Now  is  the  time  to  seek  a 
town  and  outfit  your  party  with 
much-needed  supplies  such  as 
weapons  and  armor.  Even 
though  all  your  characters  begin 
with  cloth  armor  and  a  dagger 
apiece,  better  equipment  could 
be  a  lifesaver.  Remember,  at  the 
beginning,  your  characters  are 
weak  in  every  respect  and  must 
be  nurtured  until  they  have 
grown  strong  in  body  and  mind 
and  have  gained  knowledge 
along  with  experience.  Until 
then,  on  to  the  safety  of  a  town. 

Weapon  Trading 

When  you  enter  a  town  youTl 


find  many  citizens  roaming  the 
streets.  These  people  are  worth 
getting  to  know,  for  only  by 
speaking  to  everyone  will  you 
learn  secrets  to  help  guide  you 
along.  Also,  clues  can  be  found 
only  with  extensive  exploration. 

One  major  improvement  of 
Ultima  in  upon  its  precursor 
concerns  the  weapons  and  ar- 
mor shops.  In  Ultima  11,  you 
were  limited  to  buying;  now,  in 
this  game,  you  can  buy  and  sell. 
The  variety  of  weapons  and  ar- 
mor is  better  than  ever.  In  fact, 
there's  a  rumor  that  some  weap- 
ons are  effective  over  a  great 
distance — that  might  be  worth 
even  a  steep  price. 

As  in  Ultima  11,  there  are 
places  to  buy  food  and  several 
pubs  whose  bartenders  hear 
tales  and  could  give  you  a  tip  or 
two.  There  are  also  stables  with 
sturdy  horses.  Occasionally  your 
party  will  come  across  an  oracle, 
a  man  of  wisdom  and  divine  in- 
sight who  might  impart  some  of 
his  knowledge  for  part  of  your 
gold.  Two  new  and  useful 
places  to  visit  are  the  thieves' 
guild  shops  and  the  houses  of 
healing.  You'll  find  this  and 
more  in  towns,  not  to  mention  a 
couple  of  castles  and  enough 
dungeons  to  make  your  head 
spin. 

Dungeons.  The  word  con- 
jures up  images  of  dark,  twist- 
ing passages,  sounds  of  funeral 
organ  music,  and  thoughts  of 
impending  doom.  This  is  the 
mood  of  the  endless  dungeons 
of  Ultima  III.  These  3-D  dun- 
geons represent  a  significant  im- 
provement over  the  simple 
underground  mazes  in  Ultirjia  II. 
Exploring  your  first  dungeon  is 
thrilling  as  you  attempt  to  over- 
come pesky  gremlins,  howling 
winds,  foul  traps,  dozens  of 
monster  groups',  and  enough 
twists  and  turns  to  make  getting 
lost  no  problem  at  all. 

Reaching  the  lower  depths — 
where  the  goodies  are — requires 
careful  planning  and  a  working 
knowledge  of  the  layout  of  each 
level.  Once  the  treasures  are  lo- 


SAVE  MORE  THAN  EVER  ON... 

3M  Scotch*  DISKETTES  < 


AND  OTHER  COMPUTER  NEEDS! 


UFETIME  WARRANTY! 


3M  BULK  DISKETTES 
AT  TREMENDOUS  SAVINGS! 

These  are  genuine  3M  diskettes  with  a  lifetime  warranty.  But  they  are  built  packed  in  cartons  of  50 
with  separate  wtiite  Tyvec  envelopes.  No  idenlilication  labels,  write  prolect  tabs  or  canons  are 
provided!  A  great  buy  for  volume  users. 


$155 

I       Qty.  50 


ea. 


SW'SSDD 


5Va"DSDD. 


$197 

P         Qty.  50 


5Vi  SSDD-96TPI    S2.15         yv  DSDD-96TP1  $2.70 

All  have  reinforced  hub. 

SOFT  SECTOR  ONLY! 

{for  IBM,  APPLE.  KAYPRO,  DEC  and  about  99%  of  all  computers.) 

Must  be  ordered  in  muStiples  of  50! 

BOXED  3M  DISKETTES 
WITH  ALL  THE  TRIMMINGS! 

Factory-fr«sh  3M  packaging  with  envelopes,  3M  logo  labels,  ID  labels  and  write-protect  tabs. 


$169 

I        Qty.  20 


5'A'SSOD 


51/4"  DSDD- 


$923 


yk~  SSDD-96TPI 
5Va-  DSDD-96TPI 


$2.60       8"  SSSD 

S3.25       8'  SSDD 

8-  DSDD 


S2.05 
$2.50 
S3. 10 


Minimum  order  of  20  diskettes.  Additional  diskettes  In  multiples  of  10. 


3M  HEADCLEANING  KITS 

Stop  swearing  and  Stan  cleaning  This  non-abrasive 
cleaning  Kil  has  everything  you  need  lor  thirty  applica- 
tions 

S23.00  ■  SI  SOShpng 

SAVE  MONEV  MrrTH  A  CL£4N  COMPUTER.' 
INTRODUCING  MINI-VAC 


«-^t#* 


Most  compute^  mallunctions  are  caused  By  CusI  MINI- 
VAC  15  ideal  for  cieaning  keyboards,  screens,  drives  and 
printers  (Great  for  photo  equipment,  too")  Equipped 
wiih  an  easy-empty  bag.  two  directional  wands  and  two 
fine-brush  no72les.  Dont  compute  without  it.  (Requires 
9-voit  battery  which  is  not  included  ) 

S21.95   ■  S3  00S^lO^g 

AT  LAST:  A  DISK  DRIVE  DIAGNOSTICS 
SYSTEM  THAT  WORKS! 

The  Dymek  Recording  Interchange  Diagnostic  fRID)  <s  a 
pro^esaional,  but  easy  to  use.  drive  Jragnostic  disk  II 
lesis  d'lve  speed,  radial  positson.  hysteresis,  write  (unc- 
tion, erase  crosstalk,  signal- 1 o-noise  and  clamping  In 
short.  It  s  a  professional's  System  tfiat  will  help  you  Keep 
your  machine  m  pnme  condition... and  avoid  the  evils  ot 

$29.95  -  Si  50  SMpng 


f^ 


MEDIA-MATE  50: 
A  REVOLUTION  IN  DISKETTE  STORAGE 

Every  once  in  a  while,  someone  takes  the  simple,  and 
makes  It  elegant  This  unit  nolds  50  i'l  disteites.  has 
grooves  for  easy  stacking,  nipples  to  keep  diskettes  Irom 
slipping  in  the  case  a/td  several  other  features  We  like  it 

$10.95    ■  S2  00  Shpnfl 


^ 


DISKETTE  70  STORAGE: 
STILL  A  GREAT  BUY 

Dust-free  storage  lor  70  5W 

diskettes.  Six  dividers  included. 

An  excellent  value 

S  14.95  ■  S3.O0Snpng 


PRINTER  RIBBONS 
AT  BARGAIN  PRICES. 
EPSON  fvlX-7D/80  S3.58 

EPSON  fvlX-tOO  $6.99 

Okidata  Micro  B4  $3.6S 

Diablo  630  Mylar  S2.60 

Diablo  630  Nylon  $2-93 

Okidata  Micro  63 


5 'A' 


$-|65 


25  Sripf>g 
25  Snpog 
25  Shpng 
25  Shpng 
25  Shpng 
SL4e  -  25Sfipr.q 

DISK  CADDIES 

..the  original  flip-up  disk 
holder  for  10  diskettes, 
a.     Beige  or  grey  only. 


.20  Shpng. 


Shipping:  b'M'  DISKETTES— AOd  S3  00  per  tOO  Of  fewer  askelle? 
a-  DISKETTES— Add  Si  00  per  100  v  fewisf  disheries  OTHER 
ITEMS  A(W  shipo*ng  cna^ges  as  ^fx>wn  n  additOTf  ic  disketie 
iiiippjFig  cfterges  Piym«nt  VISA  am]  MasitrcafO  flccsptea  COD 
OfOiefs  Only,  add  i3  00  harto<r*9  chBrges  Tixii:  ihtos  resiOefiTs 
please  afltJ  B'o  sales  tax 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 
ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

Nationwide:  1-800-621-6827 
Illinois:  1-312-944-2788 

Hours:  9AM  •  5PM  Cetitra!  Time 
Minimum  Order:  $35.00 


DISK  WORLD!,  Inc. 

SUITE  4806 

30  EAST  HURON  STREET 

CHICAGO,  ILLINOIS  60611 


Authorized  Distributor 
InfonnatJon  Processing  Products 


cated,  it  will  take  cunning  to  get 
your  party  back  out  alive.  If  all 
the  treasures  had  been  packed 
into  one  or  two  dungeons,  the 
game  would  have  been  almost 
perfect.  Instead,  vital  things 
were  spread  out  among  many 
dungeons,  decreasing  the  enjoy- 
ment of  each  one.  After  you've 
conquered  one  dungeon,  the 
rest  can  become  tedious.  Of 
course,  a  true  dungeon  lover 
might  see  things  differently. 


A  Four-Player  Battlefield 

A  new  combat  routine  has  been 
implemented  to  accommodate 
up  to  four  players.  When  a 
monster  group  is  encountered, 
the  scene  shifts  to  a  battlefield 
where  all  the  monsters  and  all 
the  players  can  be  seen.  Each 
player  gets  a  turn  in  which  he 
may  reposition  himself,  attack 
an  oncoming  monster,  or  cast  a 
spell.  Then  each  of  the  monsters 
performs  a  similar  act.  The  battle 


Monkey 
Wrencnll 

Cut  voui  programming  time  from  hours  to 
seconds,  and  have  33  direct  mode  commands 
and  lunctJons,  All  al  your  lingertipsand  all 
made  easy  by  the  MONXEY  WRENCH  II. 

TheMONKEY  WRENCH  II  plugs  easily  into  your 
ATARIandworkswittiltieATARI  BASIC 
Order  your  MONKEY  WRENCH  II  loday  and  enjoy 
Itie  conveniences  ol  these  33  lealures- 

•  Renumbering 


•  Line  numbering 

•  Deletion  of  line  numbers 

•  Strng  exctionge 

•  Move  lines 

•  CoDyl'nes 

•  Di5i<  directory  display 

•  Margins  change 

•  Home  key  (unctions 

•  Cursor  eschonge 

•  Upper  case  lock 

•  Hei  conversion 

•  Decimal  conversion 

•  DOSIunclions 


basic  line  numbers 

•  Machine  language 
monitor 

•  Function  keys 

•  Vorioble  and  current 
value  display 

•  Location  ol  every  string 
occuiience 

•  Up  and  down  scrolling  ol 
basic  programs  ,        „         *v*  ■%■  mam  v#i 

•  Spec  ol  line  formats  and     fOF  the  ATARI  OUU  Ot  XL 
poge  numbering 

The  MONKEY  WRENCH  tl  olso  contains  a  machine  Icnguoge  monitor  wilh  16  commands  that  can  be  used 
to  mleioct  with  the  powerlul  lealures  ot  the  6502  microprocessor 


$39.95 


"The 
Rabbit" 

for  your  VIC  20 
or  CBM  64 


II  you  own  a  VIC  20  or 
CBM  64  and  have  been 
concerned  about  the 
highcostoladisklostore ' 
your  programs  on 
wo/'y  voufsell  no  longer 
Now  theres  the  RABBIT 
The  RABBIT  comes  in  a  cartridge  and  at  a  much,  much 
lower  price  than  the  average  disk.  And  speed  . . .  this 
IS  one  fast  BABBIT,  With  the  RABBIT  you  can  load  and 
store  on  your  CBM  dataserle  on  BK  program  in  olmos! 
30  seconds,  compored  to  the  current  3  minutes  ota 
VIC  20  or  CBM  64,  almost  as  last  as  the  1541  disk  drive 
The  RABBIT  IS  eosyto  install,  ollows  one  to  Append  Basic 
Programs,  works  with  or  without  Expansion  Memory,  and 
provides  two  data  file  modes.  The  RABBIT  is  not  only  fast 
butreiiobie 

(The  ifobbit  tor  the  VIC  20  contains  an  expansion  con- 
nector so  you  con  simultaneously  use  your  memory 
board. etc) 


[^ 


MAE 


NOW 
THE  BEST 
FOR  LESS 


Pleose  for  your  own  protection  consider  the 
MAE  first  before  you  buy  that  other  assembler 
We've  hod  numerous  customers  who  wosted 
their  money  on  some  cheaper  off  brand  assem- 
bler tell  us  tlow  mucti  better  the  MAE  li  The  most 
powerlul  Mocro  Assembler/Editor  available 
for  the  Commodore  64  and  other  CBM  PET 
computers,  and  olso  for  the  ATARI  800  XL  ond 
Apple  II  HE 

MAE  includes  an  Assembler  Editor  Word  Pro- 
cessor. Relocating  Loader,  and  more  oil  tor 
justS59  95- 

We  could  go  on  and  describe  the  MAE  but  we 
thoughiyou  would  like  to  read  our  customers' 
comments.  The  following  pre  octuol  unedited 
comments  Irom  correspondence  about 
the  MAE 

'Excellent  DevelopmenI  Package" 

Compares  to  DEC  ond  INTEL." 

"My  Compliments  to  Carl  Moser  and  EH5." 

It  IS  a  superb  program."     ^-q  q- 


3239  Linda  Dr, 
Winslon-Salem.N.C.  27106 
(919)924-2889  (919(748-8446 
Send  lorlree  cata  log  I 


rages  on,  turn  by  turn,  round  by 
round — gone  are  the  days  of  in- 
stant destruction. 

Though  the  combat  se- 
quence is  vvell  conceived,  it  is 
simply  too  slow  considering  the 
number  of  monster  groups 
which  must  be  dealt  with. 
Granted,  the  pace  does  quicken 
once  the  characters'  attributes 
have  been  raised,  but  most  of 
the  game  is  spent  slugging  it 
out.  Then,  for  the  effort,  your 
party  garners  a  single  chest  con- 
taining barely  enough  gold  to 
sustain  everyone.  On  rare  occa- 
sions, a  small  weapon  or  cheap 
armor  may  be  locked  inside.  If 
more  items  were  found  more  of 
the  time,  agonizing  money 
problems  would  diminish  and 
the  party  could  proceed  with 
more  interesting  tasks. 

Wizards  And  Clerics 

One  of  the  best  aspects  of  Ul- 
tima III  involves  the  extensive 
use  of  magic.  Now  wizards  and 
clerics  can  demonstrate  their 
true  value  as  they  cleverly 
choose  just  the  right  spell  to 
save  the  party  from  a  slew  of 
poisonous  balrons.  At  first,  your 
spell  casters  will  be  limited  and 
somewhat  ineffective,  but  as 
time  passes  and  they  grow 
smarter  and  wiser,  they  will  be- 
come indispensable.  The  wiz- 
ards' spells  mainly  center  on 
harming  evil  creatures,  while 
the  clerical  spells  are  good  for 
healing  and  resurrection.  Both 
sets  include  very  handy  spells 
for  maneuvering  in  dungeons. 
The  two  books  of  magic  provide 
wonderful  insights  into  the 
workings  of  each  spell,  making 
the  game  even  more  bewitching. 
Overall,  the  use  of  magic  in  Ul- 
tima III  is  well  integrated  with 
the  obstacles  to  be  overcome. 

Moon  Gates 

Time  affects  many  aspects  of  the 
game.  If,  for  example,  a  member 
of  the  party  is  poisoned,  the 
passage  of  time  slowly  brings 
about  his  death.  Otherwise, 
wounds  heal  with  time  and 
spell  points  increase  to  their 


maximum.  Also,  if  your  party 
has  fought  pirates  and  gained 
control  of  their  ship,  only  time 
will  allow  the  winds  to  shift  in 
your  favor  so  that  you  may  ex- 
plore new  lands.  Perhaps  the 
most  important  effect  of  time 
concerns  the  ever-present 
moons.  Trammel  and  Felucca.  As 
they  pass  through  their  cycles, 
strange  events  take  place.  Warps 
in  space,  called  moon  gates,  ap- 
pear only  at  certain  times. 
Somehow,  the  moons  and  gates 
are  thought  to  be  connected, 
hence  the  name.  There  is  a  ru- 
mor of  a  city  hidden  in  a  vast 
forest.  Not  only  hidden,  but  also 
not  always  there.  Time,  moons, 
cities,  gates — all  interwoven  to 
challenge  the  best  adventurers. 
Such  is  the  spell  Exodus  weaves 
about  its  players. 

Game  designer  Lord  British 
has  outdone  himself  with  his 
latest  work  of  art.  Ultima  11  was 
a  fantastic  game,  but  Exodus:  Ul- 
tima lU  makes  it  seem  like 
child's  play  in  comparison.  Exo- 
dus has  achieved  an  unparal- 
leled blend  of  setting,  multi- 
character development,  magic, 
plus  a  strongly  integrated  plot. 
The  animated  graphics  sparkle 
with  speed  and  color,  and  the 
sound  effects  achieve  nothing 
less  than  a  complete,  evocative 
sound  track.  Except  for  a  few 
places  that  tend  to  drag.  Exodus 
is  a  delight  to  play,  and  1 
eagerly  await  the  perils  and 
pleasures  of  the  fourth  install- 
ment in  the  ultimate  series. 

Exodus:  Ultima  III 
Origin  Systems 
1545  Osgood  St. 
North  Andover,  MA  01845 
(617)  681-0609 
$59.95 

Apple  n  family.  Atari  400,  800,  Com- 
modore 64,  IBM  PC  &  PCjr  versions 
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The  Seven 
Cities  Of  Gold 

James  V.  Trunzo 

There  is  nothing  quite  as  fright- 
ening— or  exciting — as  the  un- 
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known.  Imagine,  then,  what  it 
must  have  felt  liii;e  to  be  with 
Pizarro,  Cortez,  Ponce  de  Leon, 
or  Columbus  and  to  sail  away 
from  the  familiarity  of  Spain  in 
search  of  discovery,  gold,  and 
fame. 

The  ocean  was  wide  and 
uncharted,  and  the  lands  were 
filled  with  strangely  painted  na- 
tives who  were  often  hostile. 
The  storms  were  fierce  and 
could  easily  blow  the  ship  far 
off  course.  Starvation  and  a 
slow  and  painful  death  would 
follow  if  land  was  not  sighted. 
Yet  even  in  the  face  of  such  ob- 
stacles, the  conquistadors  were 
lured  by  the  promise  of  gold 
and  treasure.  The  ship's  captain 
just  had  to  be  brave,  smart,  and 
lucky  enough  to  discover  a  new 
world. 

Gold  For  Spain 

One  after  one,  the  would-be  ex- 
plorers visited  the  court  and  on 
bended  knees  requested  a  grant 
to  buy  ships  and  hire  men.  In 
return  they  promised  to  estab- 
lish missions  for  the  church, 
forts  to  prove  Spain's  sover- 
eignty, and  gold  to  fill  Spain's 
coffers. 

Now  you  can  experience 
the  thrill  of  sighting  land  after  a 
long,  arduous  sea  voyage.  You 
can  also  experience  the  pride  in 
returning  to  Spain  after  having 
explored  the  Mayan  Peninsula 
and  discovered  rich  and  fertile 
lands;  or  the  shame  of  returning 
home  after  having  lost  most  of 
your  crew,  several  ships,  and 
having  no  gold  to  show  for  your 
efforts. 

Graphics  And  Strategy 

Ozark  Softscape,  in  conjunction 
with  Electronic  Arts,  has  pro- 
duced a  riveting  new  adventure 
game  entitled  The  Seven  Cities  of 
Gold  that  places  you  at  the  helm 
of  a  fleet  of  ships  and  allows 
you  to  venture  forth  from  Spain 
in  search  of  a  new  world, 
wealth,  and  fame. 

As  in  their  award-winning 
game  M.U.L.E.,  the  Bunten 
brothers  have  designed  a  graph- 
no    COMPUTB     September  1984 


ically  enhanced  strategy  game 
that  challenges  and  educates  as 
well  as  entertains.  Upon  booting 
The  Seven  Cities  of  Gold,  the 
player  finds  himself  in  front  of  a 
palace  in  Spain.  He  has  just 
been  given  a  commission  by  the 
Spanish  court;  and  as  captain  of 
a  fleet  of  four  newly  outfitted 
ships,  he  is  ready  for  his  first 
voyage. 

Leaving  The  Old  World 

After  scrolling  past  a  pub,  his 
home,  and  an  outfitters  building 
(all  important  places  when  re- 
turning home  from  an  expe- 
dition), the  player  leaves  the 
Old  World  and  ventures  forth  in 
search  of  the  new.  Sailing  is 
controlled  by  the  joystick,  as  are 
all  actions  and  options.  While  at 
sea,  the  player  may  navigate  the 
ship,  view  the  map,  and  keep 
track  of  how  many  days  have 
elapsed.  The  latter  is  especially 
important  for  several  reasons. 
For  one  thing,  your  food  supply 
isn't  unlimited. 

Eventually  you  will  sight 
land.  At  this  point,  you  will 
have  to  decide  how  much  of  the 
on-board  supplies,  goods,  and 
men  you  want  to  take  to  explore 
the  uncharted  mass  into  which 
you  have  just  bumped.  Now  the 
real  fun  begins.  There  will  be 
lush  jungles,  fertile  plains, 
intimidating  mountain  ranges, 
dangerous  swamps,  major  rivers, 
and  natives. 

Jungles  And  Swamps 

Accomplishing  all  your  objec- 
tives is  no  easy  task.  Ambushes 
in  the  thick  jungles  will  take 
their  toll  as  will  sickness  in  the 
swamps.  Food  is  a  constant 
source  of  worry;  men  won't 
travel  on  an  empty  stomach,  let 
alone  fight  on  one.  And  as  the 
land  grows  cold  with  the  ap- 
proach of  winter,  food  becomes 
scarcer. 

Once  you  decide  that  it  is 
time  to  return  home  (a  decision 
often  made  easy  by  the  loss  of 
men,  goods,  etc.),  you  must 
navigate  back  to  Spain.  Assum- 
ing that  you  make  it  back. 


thwarting  the  best  efforts  of  na- 
ture's storms,  a  trip  to  your 
home  will  provide  you  with  a 
tally  of  .what  areas  you  have 
discovered,  what  forts  and  mis- 
sions have  been  established, 
and  how  much  wealth  has  been 
obtained.  A  trip  to  the  court  will 
give  you  a  rating  based  upon 
your  successes  or  failures.  More 
gold,  a  promotion,  or  chastise- 
ment awaits  you  in  the  court. 
Finally,  a  trip  to  the  pub  allows 
you  to  record  {save  to  disk) 
maps  for  future  voyages.  The 
outfitter?  Most  assuredly,  it  will 
be  your  first  stop  before  weigh- 
ing anchor  for  the  next  excur- 
sion. There  you  will  buy  food 
and  goods,  hire  more  men,  and 
perhaps  even  purchase  more 
ships. 

Historical  Accuracy 

The  mechanics  of  The  Seven 
Cities  of  Gold  are  easily  imple- 
mented and  well-done.  All 
movement,  both  on  land  or  at 
sea,  is  handled  by  use  of  the 
joystick,  as  are  all  option  selec- 
tions and  even  combat.  The 
graphics  are  well-done,  and  Cit- 
ies contains  over  2800  screens 
that  represent  the  lands  you  will 
explore.  The  computer  literally 
draws  the  map  as  you  move 
about  North,  South,  and  Central 
America,  all  accurately  depicted. 

Your  expedition  is  repre- 
sented by  an  arrow  moving  over 
a  variety  of  easily  identified 
terrain.  Symbols  are  used  in 
various  places  to  represent  hun- 
dreds of  different  types  of  settle- 
ments, ranging  from  farmers 
and  hunters  to  wealthy  Aztec 
strongholds.  It  is  upon  entering 
one  of  these  settlements  that  an- 
other of  Seven  Cities'  delights  is 
discovered. 

Once  the  player  has  moved 
the  arrow  onto  a  settlement 
symbol,  the  screen  symbol  be- 
gins to  magnify,  increasing  in 
size  until  it  is  replaced  by  a  de- 
tailed graphic  screen.  The  arrow 
is  replaced  by  a  conquistador 
who  represents  the  expedition, 
and  you  find  yourself  in  the 
middle  of  the  settlement,  rapidly 


surrounded  by  natives.  Find 
their  chief  and  begin  trading,  or 
draw  your  sword. 

An  Enchanting 
Challenge 

There  are  many  more  surprises 
in  The  Seven  Cities  of  Gold.  The 
program  both  challenges  and 
enchants.  It  forces  you  to  con- 
sider various  strategies:  What  is 
the  best  way  to  outfit  an  expe- 
dition? Do  you  have  enough 
men  to  establish  forts?  When 
should  you  return  home  for 
more  supplies?  Even  the  time  of 
year  can  be  an  important  factor. 
And  what  happens  after  the 
player  discovers  the  Mississippi 
or  the  Amazon,  gold  mines,  the 
Fountain  of  Youth,  and  all  the 
mysteries  of  the  Americas?  Is 
the  game  over?  Not  a  chance. 
Aside  from  the  fact  that  the 
game  could  be  played  again 
using  different  strategies  and 
achieving  higher  rankings.  Seven 
Cities  of  Gold  provides  a  utility 
that  randomly  generates  entire 
continents;  no  two  are  ever  the 
same.  Furthermore,  all  games 
can  be  played  at  one  of  three 
levels:  novice,  journeyman,  or 
master. 

Seven  Cities  of  Gold 

Electronic  Arts 

2755  Campus  Drive 

San  Mateo,  CA  94403 

(415)  571-7171 

$39.95 

Available  for  Atari  now  and  for 

Commodore  64  soon.  © 

Word  Flyer 

Steve  Hudson,  Assistant  Editor, 
COMPUTE!  Books 

Dozens  of  educational  programs 
have  been  released — some 
good,  some  less  than  good — but 
one  of  the  most  interesting  is 
Word  Flyer. 

Best  known  for  dynamic 
and  challenging  games  like 
Archon,  Pinball  Construction  Set, 
and  Worms?,  Electronic  Arts  has 
developed  a  reputation  for  so- 
phisticated programs.  Word  Flyer 
is  no  exception.  Like  most  edu- 
cational programs,  it  uses  graph- 
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PORTABLE  COMPUTERS 

HP-71B 388      HP.TSD 788 

aariaa  70  aoftwara  ft  pariptiarala 

diacauntad  tdd 

HP-22E5B  ThlnkJat  Printar  [HPIL] .  379 


» 


CALL  FOR  PRICES 


OP  5310  (na  mam.  inataliadi . 

OR  5384  •4K  [mam.  initairail] . 

OR  40«4  84K  [mam.  inatallad] ...  .270 


.210 
270 


OR  t201  OuadcDlar-l 200 

OR  8202 Ouadcalar.2  (uparada  kit).  .  .200 

ouaoUnk 

OR  3000  tor  ISM 475 

OR  3010  lor  Compaq, 475 

UR  3020  lor  Columbia 475 

AST 

Bi>   Pak  Plui.  .  .Vr. 270 

Maga  Plua  II.  . 270 

1/0  Plua  II 112 


DISKETTES 

10  —  SV."  Floppy  Diikattai 

as  /SO  SS  /  DD  OS  /  DD 
WVabaah  B13.00  S1S.0O  817,50 
Maiail  NA  20.00  28.00 

DYaan  NA  23.00        30.00 

10  —  B"  floppy  diikattaa 

Ovaan  NA  32.00  37.00 

CALL  FOR  QUANTITT  PRICINO  ON 

10  OR  MORE  BOXES  OF  DIBKETTEB 


HUGE  DISCOUNTS  all 
RIBBONS  •  DUST  COVERS 
PAPER'POST  CARDS 'LABELS 
for  almost  every  make  and  model 


CALCULATORS 

EL  5100 43 

EL  SSQO  T 70 

EL  BIB  T ES 


SHARP 

^^■B  HAND  HELD  COMPUTERS 

pc    12SDA BO 

PC    12B0 CALL 

ftc    12B1 CALL 

pc    1500A 180 

PRINTERS  DISCOUNTEQ  TOO 

CABLES  —  INTERFACES 

accaaaorlaa  for  Compvtar  Printara 

ORAPPLER  PLUS 105 

1BK  BUFFERED  ORAPPLER 185 

Appla  Dumplino  OX SB 

Cardco  O SB 

CBBSOB  10  ft.  Par.  Cabia  for  ISM.  .29 

CBSS22  10  It.  38138  Parallal 32 

CBSS28  10  It.  29i£9  nS-232 29 

CBEB1B  6  It.  TI.SS/4A  parallal  cabla25 
CB5BZa  B  It.  par.  TRSBO  mod.  I.III-IVE2 
ALL  OTHER  CABLES CALL 


CALL  TDLL  FREE  800-621-1269  except  lllinQls.  Aluska.  Hawaii 


Corp.  Acuta.  Inwitad.  MIn.  Ord.  819.00.  MBStercar^  or  Viso  Ijy  ms'l  or  phone  Mail  CBSherF,Checv,  Mon  Ord  Per^  ChecM?w1<5  loclrJAdd 
Sd  00  l5t  Mm  [AK,  HI,  P.n.,  Canada  add  BIO. DO  firat  Itam)  II  00  ea  addl  shpg  a  hona:  Shiprrenti  tu  il  adtjrrss  add  7%  tsj.  Prces  sub| 
to  :harcc  WRITE  lor  Iraa  catalog.  RETURfl  POLICY:  Oafactlvaa  Only!  Moat  piraduota  raplacad  within  3D  daya  ol  purchaaa  wltli  idantieal 
marchandHa  only.  Comptitar  and  larga  parlpharala  raplacad  onl«  whan  dafactlna  on  airrwal Jwitliin  3  work  dava  ol  dalnarv).  OtIiar  prob- 
lami  covarrt  by  mir.  warranty.  ALCEgK-TlK  MERtHANPISt  IS  SaAND  NEW,  FIRST  dUAtITT  ANO  COMPLETE. 


ELEK-TEKjnc. 


65b  T  ry    LincoJo  Ave  .  Ch-cago.  IL  6064S 
(3121  G31  7B00  JSW}  677  J6GD 


ics  and  sound  to  reinforce 
learning,  but  uses  them  in  a 
way  that's  both  new  and 
refreshing. 

Word  Flyer  was  developed 
by  ChildWare,  a  programming 
group  within  Electronic  Arts. 
Typically,  ChildWare  programs 
combine  proven  educational 
psychology  with  captivating 
programming,  and  Word  Flyer  is 
no  exception. 

The  object  of  the  game  is 
straightforward:  Use  your  joy- 
stick to  maneuver  word  flyers 
and  match  zooming  letters  or 
words.  It's  a  challenging  and  ex- 
citing game  for  young  children. 
But  there's  learning  amidst  the 
laughter.  Without  realizing  it, 
players  are  practicing  valuable 
reading  and  vocabulary-building 
skills.  On  lower  levels,  the  em- 
phasis is  on  recognizing  the  let- 
ters of  the  alphabet;  that  makes 
the  program  valuable  even  for 
children  who  have  not  yet 
learned  to  read.  Higher  levels 
introduce  words  chosen  from  a 
built-in  list  of  over  2000  entries. 
The  approach  is  both  original 
and  nonviolent. 

Booting  The  Birds 

Two  towers — built  of  the  word 
towers — dominate  the  screen, 
one  on  the  left  and  one  on  the 
right.  Atop  each  tower  sits  a  re- 
markably realistic-looking  bird. 
A  control  panel  runs  across  the 
bottom  of  the  screen;  it  consists 
of  flight  level  and  speed  indi- 
cators, a  score  bar,  a  timer,  and 
a  number-of-players  indicator. 
On  higher  levels  an  alphabet 
bar  appears  too. 

Play  starts  on  flight  1, 
where  emphasis  is  on  the  alpha- 
bet and  on  two -letter  words. 
Flight  2  comes  next,  giving  you 
the  chance  to  match  three-letter 
flyers.  Subsequent  flights  intro- 
duce you  to  three-  and  four- 
letter  flyers  and  faster  speeds. 

On  flights  2  and  above,  you 
also  gain  access  to  the  "alphabet 
bar."  That  allows  you  to  select 
the  first  letter  of  your  flyers.  On 
levels  4  and  5  you  can  also 
change  the  color  of  your  flyer  to 
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match  the  color  of  various 
zooming  words. 

If  you're  playing  a  two- 
player  game,  the  hourglass 
timer  will  clock  each  player's 
turn.  Need  to  take  a  break?  At 
any  time,  on  any  level,  you  can 
move  your  flyer  to  the  "rest 
nest"  (an  unmistakable  mass  of 
sticks  and  twigs)  and  press  the 
joystick  button  to  stop  the  timer. 
Also,  at  the  beginning  of  each 
game  (and  at  any  point  during 
play),  you  have  the  option  of 
entering  the  "control  panel"  and 
changing  any  of  the  game 
parameters. 

Although  it  takes  a  few 
minutes  to  get  the  hang  of  it, 
game  play  is  fundamentally 
simple.  Use  your  joystick  to  se- 
lect a  word  from  either  word 
tower — the  chosen  word  will  be 
highlighted  for  you" — and  then 
press  the  button  to  send  the 
chosen  word  flyer  soaring  into 
the  air.  Move  it  into  position  to 
match  one  of  the  soaring  words, 
and  press  the  joystick  button 
again.  If  the  match  is  correct, 
one  of  the  birds  will  nod  ap- 
proval. If  your  match  is  incor- 
rect, the  bird  will  pronounce  the 
avian  equivalent  of  "uh-oh!" 

Cooperative  Scoring 

In  either  case,  your  score  will 
change  appropriately.  The  score 
is  increased  when  a  player 
matches  the  flyer  with  the  cor- 
rect letter  or  word.  On  higher 
levels,  additional  points  are 
awarded  if  the  words'  colors 
match  too.  Incorrect  matches 
lower  the  score  slightly  and  re- 
turn you  to  the  word  tower.  In 
two-player  games,  an  incorrect 
match  ends  that  player's  turn. 

Many  parents  will  be 
pleased  with  this  departure  from 
the  winner/loser  approach  of 
other  multiplayer  games.  Word 
Flyer  emphasizes  constructive 
cooperation  instead  of  conflict 
and  destruction.  The  total  score 
increases  whenever  either  player 
correctly  matches  a  letter  or 
word.  By  working  together,  two 
players  can  move  through  the 
different  levels  more  quickly 


than  either  could  alone. 

Parent  and  child  can  play 
together,  working  toward  a 
common  goal,  and  the  child  will 
learn  to  recognize  letters,  words, 
and  colors.  But  he  or  she  can 
learn  the  importance  of  coopera- 
tion too. 

Where's  The  Word? 

Word  Flyer's  graphics  and  sound 
are  effective  without  being  over- 
powering. Joystick  control  is  re- 
sponsive. The  constantly 
changing  list  of  letters  or  words 
holds  interest,  assuring  many 
hours  of  satisfying  and 
challenging  play. 

However,  after  several  ses- 
sions, one  odd  quirk  does  be- 
come evident.  In  some  cases, 
while  exuberanfly  chasing  down 
a  zoomer,  the  flyer  would  fly  off 
the  top  edge  of  the  playing 
field.  However,  you  can  move 
the  joystick  to  maneuver  the 
flyer  back  onto  the  screen. 
Bothersome?  A  little,  at  first, 
and  it  might  confuse  very  young 
children. 

Also,  at  several  points  in 
the  otherwise  excellent  manual, 
the  reader  is  told  that  something 
will  be  described  under  a  subse- 
quent heading.  It  is  mildly  con- 
fusing (and  occasionally 
annoying)  to  have  to  skip  ahead 
to  figure  something  out;  in  the 
case  of  instructions,  at  least, 
necessary  redundancy  is  a  fea- 
ture that  many  software  man- 
uals still  lack. 

But  once  you  figure  it  out — 
and  it  won't  take  long — control 
is  simple  and  straightforward. 
Selecting  flyers,  colors,  levels, 
and  speeds  quickly  becomes 
second  nature,  allowing  players 
to  concentrate  on  the  game  it- 
self. The  educational  goals  un- 
derlying this  game  are 
pleasanfly  and  effectively 
achieved.  All  in  all,  a  deft  piece 
of  work. 
Word  Flyer 
Electronic  Arts 
2755  Campus  Drive 
San  Mateo,  CA  94403 
Atari  400/800/600XL/800XL/1200XL 
$35  (48K  disk)  Q 


BIG  NAME, 
NO  NAME 


THE  BEST  BUY 
YOU  CAN  FIND! 


UFETIME  WARRANTY! 


$119 

I  Qly  50 

$-|89 


SS-DD 

5li 


ea. 

5V« 


$1 59" 

-DD    I   i^'y  50 

$914" 


SS-DD-96TP1| 

Oly  50  5  V,   DS-DD-96TPI  I 

(These  are  bulk  packed  d  skeiles  witn 
reinforced  fiutis  and  separate  white  Tyvec  sleeves  | 

lAdd  S3  00  shipping  per  100  diskeiies  For  C  O  D 


r 


orders,  add  anolher  S3  00  handling  charge  I 


SPECIAL! 


~^ 


\i 


Act  now  and  you  can  gel  a  Special  borius.  an 
Amaray  Media-Mate  50  disk  storage  unii  Ex- 
tremely wei  designed  wth  grooves  tor  stack-ng 
Normally  $1^.95  Whert  ordered  wilh  50  BIG 
NAME.  NO  NAME  diskettes,  yoj  cari  get  cne  for 
S9.99  (Snipping  Included). 


WELL.  OUR  SEARCH  OF  MORE  THAN 
A  YEAR  HAS  PAID  OFF. 

We  found  a  diskette  thai  you  ve  used  a  hundreC 
times  bul  na/e  never  heard  of  It  s  the  one  used  by  a 
Jot  ol  major  software  houses  for  iti&r  copy-protected 
originals  the  kind  of  diskettes  itiat  receive  a  lot  oi 
heavy  use 

These  BiG  NAME.  NO  NAME  diskettes  exceed  an 
ANSI  and  IBM  standards  Tt^ey  are  individually  tested 
track  by  track,  sector  by  sector  and  certified  100'  = 
error  free 

Moj'eover,  the  company  that  makes  Ihem  has  their 
own  pfoprietary  coating  formulation  which  results  in  a 
super-smooth,  anti-stattc  surface, 

In  short,  these  are  good  diskettes 

If  they  weren't,  we  wouldn  t  be  selling  them 
LIFETIME  WARRANTY! 

As  with  every  diskette  we  sell.  BIG  NAME,  NO 
NAME  diskettes  are  covered  by  a  LIFETIME  WAR- 
RANTY  by  U5  arid  the  manufacturer 

If  you  have  any  problems  with  them  at  any  time 
because  of  materials  or  workmanship,  just  call  us  to 
arrange  a  return 

DON'T  SAY  NO! 

Sure.  yOLt  ve  never  heard  of  9lG  NAME,  NO 
NAME  diskettes. 

But  a  rot  ol  software  manufacturers  who  use  hun- 
dreds of  thousands  ol  diskettes  for  Iheir  copy- 
protected originals  have,  and  a  lot  of  Ihem  use  BIG 
NAME,  NO  NAME  diskettes 

DISKETTE  HEAVEN  GUARANTEED! 

Order  yoLr  supply  ol  BIG  NAME,  NO  NAME  disk- 
ettes today 

\i  you're  rot  totaHy  happy  witn  them  at  the  end  ol 
30  days,  well  give  you  a  refund,  credit  or  exchange 

Thai's  confidence 

That's  DISK  WORLD'     the  nice  people  who  sell 
almost  a  million  good  diskettes  a  month 
TO  ORDER: 

Call  DISK  WORLD  Deiween  9AM-5PM.  Central 
Time,  Monday  through  Friday  at 

1-800-621-6827 


or  in  Illinois,  at 

1-312-944-2788 

Or  write  us 

DISK  WORLD!,  Inc. 

Suile  i(806« 30' Easl  Huron  Street  •  Chicago,  Illinois  60611 


DISK  WORLD! 


BIG  NAME, 
Hanwol  NO  NAME 
DISKETTES 


RATBJ  t1  FOR  SERVICE  &  RBMBIUTY 


CALL  TOa  FREE 

800-221-8180 

IN  NEW  YORK  STATE 
CAU  12131  732-8600 


Jair«5'^ 


WORID 


25  PARK  ROW 
NEW  YORK  CITY, 
NEW  YORK 
10038 
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FAMILY  TRIVIA 

NOW  THE  WHOLE  FAMILY  CAN 
PLAY  TRIVIA  AT  THE  SAME  TIME! 
Adults,  teenagers  and  children  can 
all  play  —  each  one  answering 
questions  geared  to  their  age  level. 
No  more  parents  getting  bored  with 
children's  games,  no  more  children 
getting  frustrated  at  the  difficulty  of 
adult  games. 
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Lightning  Sort 


Russ  Gospord 

Last  September  COMPUTE!  published  "Ultrasort," 
and  we  called  it  the  fastest  sorting  program  ever 
published  for  any  home  computer.  It  would  sort  a 
1000-element  array  in  less  than  eight  seconds. 

It's  been  improved.  Here's  "Lightning  Sort."  It 
does  the  same  thing  in  a  breathtakitig  2.1  seconds. 
Add  this  extraordinarily  powerful  subroutine  to  any 
of  your  BASIC  programs  where  you  need  to  alpha- 
betize something.  For  the  VIC,  64,  and  PC/PCjr. 
Atari  users  should  refer  to  the  accompanying 
sidebar  and  program  "Bulldozer  Sort." 


The  "Ultrasort"  routine  for  Commodore  com- 
puters (COMPUTE!,  September  1983,  p.  194)  isn't 
as  fast  as  it  could  be.  After  disassembling  the 
code  to  study  the  algorithm,  I  found  several 
opportunities  to  compact  the  code  (mainly  to  re- 
duce disk  loading  time)  and  to  speed  up  the 
execution  time.  Using  the  "Sort  Test"  program 
from  the  original  article  as  a  benchmark,  my 
"Lightning  Sort"  routine  sorts  a  1000-element 
array  in  an  average  of  2.1  seconds,  versus  7.8 
seconds  for  Ultrasort.  That  few  seconds  savings 
isn't  much.  But  when  I  tried  it  on  random  4000- 
element  arrays  the  routine  took  an  average  of  10 
seconds,  versus  40  seconds  for  Ultrasort.  A  400 
percent  speedup  in  execution  time  can  be  signifi- 
cant in  applications  where  the  sort  routine  is 
called  repeatedly,  or  in  sorting  very  large  arrays. 

The  time  for  this  type  of  algorithm  to  sort  an 
N-element  array  is  T*N*Log2N  on  the  average, 
where  T  is  about  .21  milliseconds  for  the  modi- 
fied routine  and  .8  milliseconds  for  the  original. 
Actual  running  time  depends  on  the  starting  or- 
der of  the  array.  Interestingly,  whereas  many  sort 
algorithms  run  fastest  when  the  original  array  is 
already  in  order,  Hoare's  Quicksort  runs  fastest 
on  randomly  ordered  data.  If  you  try  it  on  an  ar- 
ray which  is  already  in  correct  order  you'll  find 
that  it  takes  much  longer  (proportional  to  N^). 

Besides  speeding  up  the  execution,  1  was 
also  able  to  reduce  the  amount  of  RAM  needed 
from  908  bytes  to  418  bytes.  By  storing  the  vari- 
ables in  RAM  space  above  the  actual  sorting  rou- 
tine rather  than  within  the  routine,  the  actual 
program  storage  needed  on  disk  is  only  338 
bytes.  This  means  the  saved  program  uses  only 
two  disk  blocks,  rather  than  the  four  required  for 
the  original. 
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Program  1  is  a  BASIC  program  which  loads 
the  machine  language  Lightning  Sort  routine  for 
the  Commodore  64.  The  routine  is  loaded  into 
RAM  from  $C000  to  $C152  (decimal  49152  to 
49490),  and  writes  variable  data  up  to  $C1A2 
(decimal  49570).  It  is  used  in  exactly  the  same 
way  as  Ultrasort.  However,  1  prefer  to  define  the 
call  address  49152  as  variable  QS  (either  within 
the  BASIC  program  or  in  direct  mode)  and  then 
call  the  routine  with: 
SYS  QS,N,AA$(K) 

where  K  and  N  are  the  first  element  and  the 
number  of  elements  to  sort,  and  AA$  is  the  array 
variable  name,  as  in  the  Ultrasort  article. 

Program  2  is  a  BASIC  loader  for  the  VIC 
version  of  Lightning  Sort.  It  automatically  re- 
locates the  machine  language  to  the  top  of  avail- 
able memory,  regardless  of  the  amount  of 
expansion  installed,  and  protects  the  sort  routine 
from  BASIC.  The  program  also  tells  you  the 
proper  SYS  to  use  to  start  the  sorting. 

Although  Program  2  will  run  on  an  un- 
expanded  VIC,  we  recommend  that  at  least  8K 
expansion  be  used.  With  less  than  this,  only  a 
very  few  items  can  be  sorted. 

Program  3,  the  Sort  Test  program  from  the 
original  Ultrasort  article,  can  be  used  as  a 
demonstration  of  Lightning  Sort.  The  program 
creates  an  array,  AA$,  of  1000  random  elements, 
then  sorts  them  into  order.  If  you  are  using  a 
VIC  with  limited  memory,  you'll  need  to  reduce 
the  number  of  elements. 

Program  1: 

Lightning  Sort  Loader  For  Ttie  64 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  In. 

10  1=49152 :SUM=0  : rem  136 

20  READ  A: IF  A=256  THEN  40         : rem  54 
30  SUM=SUM+A:POKE  I , A: 1=1+1 :GOTO  20 

:rem  79 
40  IFSUMO 45 295THENPRINT" ERROR  IN  DATA  ST 
ATEMENTS";END  : rem  191 

50  PRINT "LIGHTNING  SORT  READY. ":END 

:rem  214 
49152  DATA  32,253,174,32,158,173  : rem  52 
49158  DATA  32,247,183,165,20,133  : rem  52 
49164  DATA  253,165,21,133,254,32  : rem  46 
49170  DATA  253 , 174 , 32 , 158 , 173 , 162 s rem  104 
49176  DATA  1,165,71,157,85,193  s rem  221 
49182  DATA  157 , 125 , 193 , 165, 72, 157 irem  114 
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Business 

Multiplan  (Spreadsheet) $  63.00 

Calc  Result  (Easy) S  45.00 

Calc  Result  (Advanced) S  95.00 

Supert)ase64 $  95.00 

Mirage  Concepts  (Data  Base) S  89.00 

Mirage  Concepts  {Word  Processor) 

(40/80  elm  S  30K  Dictionary) $  89.00 

Mirage  Concepts 

(Report  Generator)  $  49.00 

Home  Accountant  (Continental) S  49.00 

Tax  Advantage  (Continental) $  39.00 

Southern  Solutions  Accounting 

G/L,  A/R,  A/R  P/R,  l/M each  S  69.95 

Utilities 
Disk  Utility  Program  (Fast  Copy, 

RIe  Copy,  Disassembler  &  more) S  49.00 

Smart  -r  64  Terminal S  49.00 

TOOL 64  S  39.95 

Simon's  Basic  S  39.95 

80  Column  Expander  (Cartridge) $  60.00 

Solo  Flight  (Simulator) S  34.95 

Hellcat  Avenger $  34.95 

Oscar  by  Databar 

(Bar  Code  Reader)  S  79.95 

CBM  1541  (new  version) S  269.00 

Concord  Parallel  Disk  Drive  S  345.00 

Concord  Slave  Drive    Call 

MSD  Super  Disk  (Single) S  395.00 

MSD  Super  Disk  (Dual) S  695.00 

1600  Modem S  63.00 

Vic  1650  Automatic  Modem S  109.95 

Hayes  Smart  300  Modem S  249.00 

Hayes  Smart  1290  Modem S  629.00 

Vic1530Datasetle S  65.00 

Cardco  Datasette $  55,00 

5  Slot  Expander  (64) S  65.00 

Pri  nter  Utility  Program  (Cardco) S  1 9.95 

64  Relay  Cartridge  , , , , S  45,00 

Numeric  Key  Pad S  49.00 

Alien  Voice  Box  (Talks  &  Sings) S  119.00 

When  I'm  64  {Voice  Box  Sings) S  35,00 

Voice  Box  Dictionary S  35,00 

Texas  Instruments  LCD  Programmer. . .  S  55.95 
Vertiatim  Diskettes: 

Single  Sided/Single  Density    S  26.00 

Single  Sided/Double  Density  S  30.00 

Double  Sided/Oouble  Density   S  42.00 

Vic  20: 

3-Slot  Expander $  39,00 

6-Slot  Expander S  79,95 


16K  Memory S  79.95 

CBM  4023  Ribbons S  9.95 

CBM  8023  Ribbons S  9.95 

FlipN'FilelO,  15,  25,  50 Call 

Power  Strips  w,  surge  stopper Call 

Computer  Care  Kit  S  19.95 

Disk  Cleaning  Kit S  12.95 

SupertDOx  (Transparent  IEEE, 

3-Slot,  Reset)  $  139.95 

Inlerpod  (Intelligent  IEEE  &  RS-232) . .  $  139.95 
The  Connection  (By  Tymac) 

(Commodore  Graphics  -  2K  Bufler)  S  95.00 

Cardco  +G  Parallel  Interface S  89.00 

Vic  Switch S  149.95 

IEEE  to  Centroonics $  149.95 

Pet-to-IEEE  Cable $  39.00 

lEEE-to-lEEE  Cable S  49.00 

4  Prong  AV  Cable S  15,00 

Centronics  Cable  (male  to  male)  S  34.95 

RS232  Cable  (male  to  male)  S  31 .95 

Networidng  for  C-64  &  CBM  Equipment  Call 

CBM  1702  Color  Monitor S  269,00 

Panasonic  TR-1 20  (Green) S  142.00 

Panasonic  TR-1 20  (Amber) S  156.00 

Panasonic  DT-130O  Color S  425.00 

Monitor  Stand  (Tilt  &  Swivel) S  29.95 

RGB  Monitor  Cable: 

ET-100C  (Apple) S  33.80 

ET-IOIC(IBM) S  33.80 

Green  &  Amber  Monitors S  95,00 

CBM  6400  Pnnter S1425.00 

Abati  (20  CPS) S  475.00 

Cardco  LQ'1  Printer S  495.00 

NEC  Spinv^riter Call 

CBM  fylPS-301  Pnnter  |50cps)  S  245,00 
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Call  to  Order 

1-800-527-1738 

All  Others  Call 

1-214-231-2645 

Micro-Sys 


CBM  4023  (100  CPS)  S  339.00 

CBM  8023  (160  CPS)  $  565.00 

Panasonic  KX-P1090  (100  CPS)  $  285.00 

Panasonic  KX-P1091  (120  CPS) $  325.00 

Panasonic  KX-P1 092  (1 80  CPS) Call 

Panasonic  KX-P1 093  Call 

Executive  64  Portable $  795.00 

B1 28-80  (128K  80  column) S  695.00 

SuperPet  (5  languages) 51059,00 

CBM  8032 S  595,00 

CBrvl8096 S  675,00 

CBM  2031  single  disk $  295.00 

CBIVI 8050  Dual  Disk  1  meg $  995.00 

CBM  8250  Dual  Disk  2  meg $1295,00 

CBM  9060  Hard  Disk/5  Meg 52195,00 

64K  Expansion  Board S  275,00 

SuperPet  Upgrade  Kit S  695.00 

Wordpra4+  or  5+  S  295.00 

Calc  Result S  199.95 

Ttie  fv^anager $  199,00 

Superbase  (8096  only)  S  225.00 

BPI  Accounting  System 

6  Separate  Modules  each  S  325.00 

Southem  Solutions  Accounting 

5  Separate  Modules  each  S  285.00 

McTerm  Communications  Package S  175,00 
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Superscript  II  (40K  Dictionary) S  199,00 

Supertjase  (Data  Base)  S  199.00 

Complete  Accounting  System 

(G/L,A/R,A/P,0/E,P/R,l;M)  S  199.00 

Calc  Result S  199.00 


Orders  under  50.00  add  10.00  Handling  fee 
MasterCard.  VISA,  Money  Order,  Bank  Check 
COD  (add  5.00) 
Add  3%  For  Credit  Cards 

All  Products  In  Stock  Shipped  Within  24  Hours 

F,O.B.  Dallas,  Texas 

All  Products  Shipped  With  Manutacturers 

90  Day  Warranty 

PRICES  .\RE  SUBJECT  TO 
CHANGE  WITHOUT  NOTICE. 

DEAIXRS  INQUIRIES  WELCO.ME 
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Bubble  And  Bulldozer 

Christine  C.  Genet 


While  machine  language  data  sorting  is  ex- 
tremely fast,  there  still  may  be  times  you 
will  want  to  insert  a  simple  BASIC  sorting 
routine  into  a  program.  When  the  list  to  be 
sorted  is  small,  bubble  sorting  is  a  good 
method  to  use.  For  larger  lists,  a  technique 
called  bulldozer  sorting  may  be  better. 

Using  The  Bulldozer  Soit  Program 

The  program  is  a  demonstration  of  the  bull- 
dozer sort.  It  asks  how  many  numbers  you 
want  to  sort  and  the  value  of  the  highest 
number  in  the  list.  It  then  generates  random 
numbers  in  the  desired  range.  When  fin- 
ished sorting,  it  prints  all  nonzero  values  to 
the  screen. 

To  use  the  bulldozer  sort  as  a  sub- 
routine, delete  lines  70  through  85  and  add 
a  line  to  the  beginning  of  the  program  de- 
fining the  number  of  data  elements  (RN) 
and  the  maximum  value  of  the  data  (MV). 
Also,  change  line  111  so  that  it  will  input 
the  data  in  the  way  that  is  needed  for  your 
program.  For  example,  to  input  data  from 
the  keyboard,  change  the  line  to  read: 
111  INPUT  DT:IF  DT>MV  THEN  111 

If  you  would  like  the  sorted  list  printed  to 
the  screen  as  part  of  your  subroutine, 
change  line  550  to  read: 
550  RETURN 

If  you  don't  want  a  screen  print,  delete  lines 
500  through  550  and  add  the  following  line: 
200  RETURN 

How  Bubble  Sorting  Works 

The  bubble  sort  is  a  commonly  used  method 
of  sorting  small  lists  of  data  into  numerical 
or  alphabetical  order.  While  bubble  sorts  are 
easy  to  understand  and  use  in  programs, 
they  are  often  too  slow  to  use  for  large 
sorting  tasks — bubble  sorting  requires  many 
comparisons. 

A  bubble  sort  compares  each  item 
against  the  other  unsorted  items.  If  the  item 
tested  is  larger  than  the  one  it  is  tested 
against,  their  positions  are  switched.  This 
way,  after  all  of  the  values  have  been  tested 
once,  the  first  position  in  the  array  contains 
the  lowest  number  in  the  list. 

Sorting  A  Stack  Of  Cards 

Suppose  we  have  a  small  stack  of  index 


cards  that  are  out  of  order.  We  have  four 
cards  {numbered  1  through  4)  to  sort,  and 
they  are  in  the  following  order:  3,  2,  4,  1.  To 
begin,  we  compare  the  first  card  (3)  with  the 
second  (2).  Since  2  is  less  than  3,  we  swap 
the  cards  and  the  order  becomes:  2,  3,  4,  1. 

Next  we  compare  the  first  and  third 
cards  in  the  deck,  and  since  2  is  less  than  4, 
no  swap  occurs.  Comparing  the  first  and 
fourth  cards,  we  see  that  they  should  be 
swapped  (since  2  is  greater  than  1)  and  our 
stack  of  cards  reads  1,  3,  4,  2. 

Now  we  have  placed  the  lowest  card  in 
the  first  position,  so  we  can  start  our  second 
series  of  comparisons  with  the  second  card 
in  the  deck.  We  compare  the  second  and 
third  cards  (3  and  4)  and  make  no  swap, 
then  compare  the  second  and  fourth  cards, 
swapping  3  with  2.  At  this  point,  the  first 
two  positions  in  the  deck  are  set  and  the  or- 
der is  1,  2,  4,  3,  Testing  the  third  card  is 
easy,  since  there  is  only  one  comparison 
left,  and  we  switch  the  positions  of  4  and  3 
to  finish  our  bubble  sort  with  the  array  filled 
as  follows:  1,  2,  3,  4. 

Our  mental  sort  took  only  six  compari- 
sons, and  was  pretty  quick.  But  with  longer 
lists,  bubble  sorting  slows  down  greatly.  The 
reason  for  this  is  that  in  any  array  with  N 
elements,  the  number  of  comparisons  re- 
quired will  be  N(N  — 1)/2.  This  means  that 
while  a  bubble  sort  of  20  items  will  require 
190  comparisons,  a  list  only  four  times  as 
long  (80  items)  will  require  over  16  times  as 
many  comparisons  (3160).  In  order  to  speed 
things  up,  we  need  to  reduce  the  number  of 
comparisons  as  much  as  possible, 

A  Faster  Sort 

An  alternative  is  bulldozer  sorting,  first  de- 
scribed by  Isaac  and  Singleton,  in  JACM  3 
(1956):  169-174.  Bulldozer  sorting  uses  ad- 
dress calculation  to  roughly  position  items  in 
the  array  before  sorting  them.  We  bulldozer 
sort  every  time  we  use  an  index  card  file — 
we  look  for  the  correct  section  of  files  first, 
then  sort  the  card  into  the  specific  place  it 
belongs.  On  a  computer,  this  sort  works 
well  for  up  to  around  500  items  and  is  faster 
than  bubble  sorting,  although  it  uses  more 
memory  for  the  array. 

Another  feature  of  the  bulldozer  sort 
that  makes  it  faster  than  the  bubble  sort  is 
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that  the  bulldozer  sort  arranges  the  items 
one  by  one  as  the  data  is  input — there  is  no 
long  wait  for  the  sort  to  finish  after  all  of 
the  data  has  been  entered. 

Address  Calculation 

To  successfully  predict  where  the  data 
should  be  placed  in  the  array  before  sorting, 
keep  two  requirements  in  mind: 

1.  The  array  used  for  sorting  and  stor- 
age of  the  data  should  be  about  1.4 
times  as  large  as  the  data  list,  and 

2.  The  formula  for  calculating  the  es- 
timated address  should  be  chosen  to  al- 
low empty  array  spaces  above,  below, 
and  between  the  sorted  data  elements. 

The  first  requirement  is  easy  to  handle;  just 
DIMension  the  data  storage  array  to  a  value 
1.4  times  greater  than  the  size  of  the  data 
list. 

Borrowing  An  Equation 

To  satisfy  the  second  requirement — leaving 
extra  space  in  the  array — we  need  an  equa- 
tion that  predicts  a  position  for  the  lowest 
data  element  about  10  percent  of  the  way 
into  the  array,  and  estimates  the  highest 
data  element's  position  to  be  about  10  per- 
cent from  the  end  of  the  array.  Since  the  ac- 
curacy of  the  predicting  equation  is  not 
critical,  we'll  use  a  simple  one  borrowed 
from  geometry — the  equation  for  a  line — to 
put  the  data  in  the  correct  general  area  of 
the  array.  Then  we'll  sort  the  data  into  the 
exact  location. 

For  example,  if  we  had  200  job  num- 
bers (or  other  data  elements)  ranging  in 
value  from  0  to  500,  we  would  DIMension 
the  array  to  280.  We  would  also  want  the 
lowest  value  to  be  placed  by  the  equation  in 
the  28th  array  position  and  the  highest 
value  to  be  sent  to  the  252nd  position. 

The  general  equation  for  a  line  is 
y  =  mx-Fb,  where  m  is  the  slope  and  b  is  the 
place  where  the  line  crosses  the  y-axis.  The 
slope  of  a  line  is  the  rise  (change  in  the 
value  of  y)  divided  by  the  run  (change  in 
the  value  of  x).  We  want  predicted  points  to 
be  in  the  middle  80  percent  of  the  array,  so 
we  multiply  m  in  the  above  equation  by  0.8. 
For  the  value  of  b,  simply  use  10  percent  of 
the  array  size  (28).  The  estimated  array 
position  for  x=250  would  be: 

y = mx  -i-  b = 0.8(280/500)x + 28 =0.448(250) + 28  =  140 

Note  that  of  the  281  array  positions  created 
by  DIMensioning,  position  140  is  very  near 


the  center.  Using  the  same  equation  to  pre- 
dict a  position  for  x=251,  though,  yields  a 
value  of  140.448,  which  rounds  to  140. 

Obviously  one  array  element  can  hold 
only  one  data  value,  and  this  is  where 
sorting  becomes  necessary.  When  an  array 
location  is  already  being  used,  the  bulldozer 
sort  compares  the  two  values  and  rearranges 
the  list.  It  is  this  readjusting  feature  of  the 
bulldozer  sort  that  requires  the  40  percent 
extra  array  storage.  The  program  slows 
down  as  it  sorts  near  the  end  of  the  data  list 
because  more  of  the  predicted  locations  are 
filled  and  more  sorting  is  necessary. 

Bulkk»erSoit 

El  70  PRINT  "{clear:  HOW  MANY  RANDOM 

DATA  ELEMENTS": 
Ji*75  INPUT  RN 

PF  80  ?  "WHAT  MAXIMUM  VALUE": 
M 85  INPUT  MV 
EL  90  AS=INT  <0.  5-t-RN»l  .  4  >  :  DIM  JN<A5): 

DN  =  ei:  1=0 
6P  95  PRINT  "CLEARING  THE  ARRAY  ": 
D!  100  FOR  A  =  0  TO  AS  :  JN  <  A  )  =0  :  NE  X  T  A 
NG105  PRINT  "ARRAY  CLEARED" 
L(J  1  1  0   1  =  1  +  1 
GA  1  1  1  DT=  (  INT  (  100*MV*RND  (0)  +0-  "i  >  /  10 

0) 
FD  J  1  5  PRINT  "DATA  ELEMENT:   ":I:" 

CA  spaces; VALUE;   ":DT 
fS  1  3  0  APP=INT  (  <0.B*AS*DT/MV)  t0.   1*A5 

+  0.5) 
EJ  I  35  C  =  0 
FH  13B  REM  ******  Lines  140-160  dete 

rmine  which  subroutine  to  ace 

ess  to  5Drt  data  correctly  t* 

**** 
DFI40  IF  JN(APP)=0  THEN  JN(APP)=DT: 

BOTO  180 
IC  150  IF  JN<APP>;=DT  THEN  GQSUB  505:S 

0:6OTD  180 
EF  160  IF  JN<APP><DT  THEN  GOSUB  h000 

:BOTD  180 
fiO  1B0  IF  I<::RN  then  110 
CB  500  REM  *««>  PRINTING  SORTED  NUMB 

ers  **«* 

61)505  PRINT  "NUMBERS  SORTED.   NOW  PR 

INT IN6- " 
Jfl  508  DN  =  0 
GC  510  FOR  B  =  0  TO  AS 
EJ515  REM  *♦*  Array  positions  witho 

ut  numbers  are  not  printed  ou 

t  *»* 
GF519  REM  **««  Zeros  are  not  printe 

d  *  *  *  * 
1(1520  IF  JN(Ei)=0  THEN  54  0 
!)D530  DN=DN+1:-^  "ARRAY  ELEMENT:   ";D 

N;"f4  spaces; VALUE:   "  ? J N ( B ) 
6).  S4  0  NEXT  B 
HS  550  END 

GE  5000  REM  ****  Placing  numbers  les 
B  than  job  presently  at  loca 
t  i  on  *  «  «  * 
CD  50  10  ftPP  =  APP-i 
05  5020  C  =  C  +  1 
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HS  5030 

IF  5040 
CH  5050 

m.  5060 

i!  5070 
AG  5080 

■m  5090 

CK  5  100 

f  LB  5105 


HJ 

SI  10 

AD 

5120 

PG  51  30 

flL 

S!  40 

CC 

5150 

ilN 

5160 

lA  6000 

CC 

60  10 

OH 

6020 

HK  60  3  0 

EH  6040 

tS  6050 

DL 

6060 

IK 

6070 

!J 

6080 

m 

6090 

a  61 00 

LC  6  105 


Hf  6  1  1  0 

(if  6  1  20 

PJ  6  1  30 

OH  6  1  4  0 

[J  6  1  50 

W  6160 


IF  JN(AF'P)=0  THEN  JN(APP)=DT 

: RETURN 

IF  JN(fiPP)>=DT  THEN  C=C-1 

APP=fiPP-l 

C  =  C+1 

IF  JN(APP)=0  THEN  5110 

IF  JN(APP)>=DT  THEN  C=C-1:G0 

TO  5050 

GOTO  5050 

IF  C^=l   THEN  JN ( APP) =DT: RETU 

RN 

REM  ****  Shifting  other  numb 

ers  to  mal;e  room  for  new  num 

ber  «* t * 

D=l 

IF  D  =  C  THEN  .IN  <  APP)  =DT;  RETUR 

N 

JN  (  APP).  =  JN  <  APP+  1  ) 

D=D  +  1 

APP=APP+1 

GOTO  5120 

REM  **»*  Placing  numbers  gre 

ater  than  4t  presently  at  1  oc 

at  i  nnt*  ** 

APP=APP+ 1 

C  =  C+  1 

IF  JN(APP)=0  THEN  JN(APP>=DT 

: RETURN 

IF  JN(APP)'Dr  THEN  f:  =  C-l 

APP=APP+1 

C  =  C+1 

IF  JN(APP)=0  THEN  6110 

IF  JN(AFP)<Dr  THEN  C=C-l:GOT 

O  6050 

GOTO  6050 

IF  C':  =  l   THEN  JN  (APP)  =DT;  RETU 

RN 

REM  «tt*  Shifting  other  numb 

ers  to  mai.e  room  for  new  nuni 

ber  »« t * 

D=l 

IF     D=C     THEN     JN (APP> =DT jRETUR 

N 

JN  < APP) =JN (APP-1  > 

D=D+1 

APP=APP-1 

GOTO     6120 


49188    DATA    105,193,157,145,193,165 


49194    DATA   253,208,2,198,254,198 
49200    DATA    253,160,3,24,189,125       ; 
49206    DATA   193,101,253,157,125,193 


rem  157 
: rem  70 
rem   249 


:rem   150 


49212    DATA    189,145,193,101,254,157 

:i 
49218   DATA   145,193,136,208,236,189 


49224 

DATA 

49230 

DATA 

49236 

DATA 

49242 

DATA 

49248 

DATA 

49254 

DATA 

49260 

DATA 

49266 

DATA 

49272 

DATA 

49278 

DATA 

49284 

DATA 

49290 

DATA 

85,193,133,80,189,105 
193,133,81,189,12  5,193: 
133,82,189,145,193,133: 
83,32,21,193,144,4  : 

202 , 208 , 228 , 96 , 165 , 82 
133,78,165,83,133,79 
160,2,177,78,153,250 
0,136,16,248,48,11  ; 

24,165,80,105,3,133  ; 
80,144,2,230,81,160  : 
2,177,80,153,247,0  ! 

136,16,248,32,32,193 


irem  155 

rem  166 
srem  60 
rem  108 
rem  111 
rem  152 
: rem  64 
:rem  18 

:  rem  2 
rem  158 
rem  200 
rem  204 
rem  160 

:rem  4 


49296 

DATA 

49302 

DATA 

49308 

DATA 

49314 

DATA 

49320 

DATA 

49326 

DATA 

49332 

DATA 

49338 

DATA 

49344 

DATA 

49350 

DATA 

49356 

DATA 

49362 

DATA 

49368 

DATA 

49374 

DATA 

49380 

DATA 

49386 

DATA 

49392 

DATA 

49398 

DATA 

49404 

DATA 

49410 

DATA 

49416 

DATA 

49422 

DATA 

49428 

DATA 

49434 

DATA 

49440 

DATA 

49446 

DATA 

49452 

DATA 

49458 

DATA 

49464 

DATA 

49470 

DATA 

49476 

DATA 

49482 

DATA 

49488 

DATA 

144,230,56,165,82,233 
3,133,82,176,2,198     : 
83,32,21,193,176,31    : 
160,2,177,82,153,247 
0,136,16,248,32,32     : 
193,176,225,160,2,177 
80,145,82,185,247,0    : 
145,80,136,16,244,48 
183,160,2,177,80,145 
78,185,250,0,145,80    : 
136,16,244,24,189,85 
193,125,125,193,133,82: 
189,105,193,125,145,193 

133,83,102,83,102,82   : 

32,21,193,176,22,189 

85,193,157,86,193,189 

105,193,157,106,193,32: 

53,193,232,32,69,193 

76,71,192,189,125,193 

157,126,193,189,145,193 

157,146,193,32,69,193 
232,32,53,193,76,71    : 
192,165,81,197,83,208 
4,165,80,197,82,96     : 
160,255,200,196,247,176 

11,196,250,176,6,177 
248,209,251,240,241,96; 
196,250,96,24,165,80 
105,3,157,85,193,165 
81,105,0,157,105,193   : 
96,56,165,80,233,3     : 
157,125,193,165,81,233: 
0,157,145,193,96,256 


I  rem  59 
rem  158 
rem  208 

:rem  3 
rem  145 
: rem  58 
rem  210 
:rem  10 

;rem  4 
rem  209 
;rem  17 
rem  105 

rem  168 
rem  254 
:rem  7 
; rem  88 
rem  106 
: rem  20 
srem  67 

rem  164 
:rem  ^68 
rem  209 
srem  72 
rem  176 

rem  155 
:rem  13 
rem  107 
srem  20 
srem  13 
rem  253 
rem  173 
rem  112 
srem  23 


Program  2: 

lightning  Sort  Loader  For  VIC 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

5  HI=PEEK{56)-2:S=HI*256;S1=S  srem  179 

10  POKE  56,HIsPOKE  55,0  srem  231 

20  READ  A: IF  A=256  THEN  PRINT"TO  RUN  SORT 

,  USES {5  spaces} SYS "SI  SEND  srem  106 
25  IF  A<0  THEN  POKE  S, ABS ( A+2 )+HI 5S=S+1 sG 

OTO  20  srem  79 

30  POKE  S,A:S=S+lsGOTO  20  srem  160 

4608  DATA  32,253,206,32,158,205  srem  249 

4614  DATA  32,247,215,165,20,133  srem  244 

4620  DATA  253,165,21,133,254,32  srem  242 

4626  DATA  253,206,32,158,205,162  srem  45 

4632  DATA  1,165,71,157,85,-3  srem  100 

4638  DATA  157,125,-3,165,72,157  srem  2 

4644  DATA  105,-3,157,145,-3,165  srem  241 

4650  DATA  253,208,2,198,254,198  srem  10 

4656  DATA  253,160,3,24,189,125  srem  207 

4662  DATA  -3,101,253,157,125,-3  srem  233 

4668  DATA  189,145,-3,101,254,157  srem  52 

4674  DATA  145,-3,136,208,236,189  srem  54 

4680  DATA  85,-3,133,80,189,105  srem  204 

4686  DATA  -3,133,81,189,125,-3  srem  200 

4692  DATA  133,82,189,145,-3,133  srem  255 

4698  DATA  83,32,21,-3,144,4  srem  49 

4704  DATA  202,208,228,96,165,82  srem  4 

4710  DATA  133,78,165,83,133,79  srem  214 

4716  DATA  160,2,177,78,153,250  srem  207 

4722  DATA  0,136,16,248,48,11  srem  98 

4728  DATA  24,165,80,105,3,133  srem  149 
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4734  DATA  80,144,2,230,81,160 
4740  DATA  2,177,80,153,247,0 
4746  DATA  136,16,248,32,32,-3 
4752  DATA  144,230,56,165,82,233 
4758  DATA  3,133,82,176,2,198 
4764  DATA  83,32,21,-3,176,31 
4770  DATA  160,2,177,82,153,247 
4776  DATA  0,136,16,248,32,32 
4782  DATA  -3,176,225,160,2,177 
4788  DATA  80,145,82,185,247,0 
4794  DATA  145,80,136,16,244,48 
4800  DATA  183,160,2,177,80,145 
4806  DATA  78,185,250,0,145,80 
4812  DATA  136,16,244,24,189,85 
4818  DATA  -3,125,125,-3,133,82 
4824  DATA  189,105,-3,125,145,-3 
4830  DATA  133,83,102,83,102,82 
4836  DATA  32,21,-3,176,22,189 
4842  DATA  85,-3,157,86,-3,189 
4848  DATA  105,-3,157,106,-3,32 
4854  DATA  53,-3,232,32,69,-3 
4860  DATA  76,71,-2,189,125,-3 
4866  DATA  157,126,-3,109,145,-3 
4872  DATA  157,146,-3,32,69,-3 
4878  DATA  232,32,53,-3,76,71 
4884  DATA  -2,165,81,197,83,208 
4890  DATA  4,165,80,197,82,96 
4896  DATA  160,255,200,196,247,176 
4902  DATA  11,196,250,176,6,177 
4908  DATA  248,209,251,240,241,96 
4914  DATA  196,250,96,24,165,80 
4920  DATA  105,3,157,85,-3,165 
4926  DATA  81,105,0,157,105,-3 
4932  DATA  96,56,165,80,233,3 
4938  DATA  157,125,-3,165,81,233 
4944  DATA  0,157,145,-3,96,256 

Program  Z:  sort  Test 

100  PRINT" {clr}"  irem  245 

110  N=1000  trem  222 

120  DIM  AA$Cn)  :rera  178 

130  PRINT "CREATING "N"  RANDOM  STRINGS" 

:rem  47 
140  SD=-TI:A=RND(SD)  : rem  183 

150  FOR  1=1  TO  N  :rem  37 

160  PRINTI"{UP)"  :reni  66 

170  N1=INT{RNDC1)*10+1)  : rem  221 

180  A?=""  I  rem  127 

190  FOR  J=l  TO  Nl  trem  91 

200  B$=CHR$(INT(RND(l)*26+65))     : rem  81 
210  A?=A$+B$  trem  43 

220  NEXT  J  irem  29 

230  AA$(I)=A$  I  rem  119 

240  NEXT  I  srem  30 

250  PRINT "HIT  ANY  KEY  TO  START  SORT" 

I  rem  151 
260  GET  A${IF  A$=""  THEN  260  (rem  83 
270  PRINT " SORTING. .. "  I  rem  26 

280  T1=TI  trera  249 

291  REM  SYS  49152, N, AA$ {1 )  FOR  64jrem  163 

292  REM  USE  SYS  VALUE  GENERATED  BY  THE  LO 
ADER  FOR  VIC  i rem  117 

300  SYS  49152, N,AA$(I)  irem  125 

310  T2=TI  trem  244 

320  PRINT"DONE"  j rem  140 

330  PRINT "HIT  ANY  KEY  TO  PRINT  SORTED  STR 
INGS"  :rera  72 

340  GET  A$:IF  A$=""  THEN  340       irem  Bl 
350  F0RI=1  TO  NiPRINT  I ,AA$ ( I ) iNEXT 

:rem  28 


:rem  144 
srem  100 
:rem  148 
:rem  255 
irem  116 

srem  96 
:rem  208 
; rem  103 
:rem  202 
irem  168 
:rem  215 
: rem  200 
srem  158 
: rem  213 
:rem  188 
: rem  242 
srem  194 
srem  151 
srem  162 
srem  189 

: rem  94 
srem  150 
:  rem  0 
srem  151 
srem  106 
srem  216 
srem  125 
srem  113 
srem  209 

s  rem  56 
srem  216 
srem  148 
:rem  141 
i rem  113 
s  rem  0 
srem  158 


Programmer's  Notes:  PC 
And  PCjr  Version 

Tim  Victor,  Editorial  Programmer 

The  PC  and  PCjr  version  of  "Lightning 
Sort"  (Program  4)  is  based  on  the  same  al- 
gorithm as  the  version  for  Commodore 
computers,  but  runs  in  about  one-third  the 
time,  due  to  the  greater  speed  and  power  of 
the  8088  microprocessor  used  in  the  IBM 
computers.  There  are  a  couple  of  differences 
in  the  way  that  this  program  is  loaded  and 
used. 

The  BASIC  loader  program  calculates  a 
checksum  from  the  DATA  statements  to 
help  identify  typing  errors,  then  creates  a 
disk  file  named  "LSORT.BAS",  containing 
the  ML  routine  in  binary  form.  The 
demonstration  (Program  5)  loads  this  file 
into  memory  using  BLOAD  and  sets  LSORT 
to  the  address  of  the  sort  routine.  This  vari- 
able is  needed  because  IBM  BASIC'S  CALL 
statement  will  only  accept  a  variable  name 
for  the  address  of  an  ML  routine. 

Lightning  Sort  uses  the  first  parameter 
in  the  CALL  statement  to  find  the  array  that 
it  will  sort.  This  is  actually  the  address  of 
the  first  string  in  the  array,  AA$(1)  in  the 
demonstration  program,  not  the  address  of 
the  array  itself.  The  second  parameter,  N%, 
tells  Lightning  Sort  how  many  strings  are  in 
the  array.  Variable  names  also  have  to  be 
used  for  parameters,  which  is  the  reason  for 
using  N%  instead  of  just  plain  1000,  and 
this  version  expects  the  length  parameter  to 
be  an  integer  variable  (a  variable  whose 
name  ends  with  a  percent  sign). 

Lightning  Sort  is  loaded  at  address 
hex  FFOO  in  BASIC'S  default  segment.  Dur- 
ing a  sort,  the  256  bytes  starting  at  hex 
FEOO  are  also  used.  To  protect  this  mem- 
ory, both  programs  start  with  the  instruc- 
tion CLEAR,&HFEOO,  which  sets  the  top  of 
BASIC'S  workspace  to  hex  FEOO, 


360    PRINTsPRINT   N"    ELEMENTS    SORTED    IN"(T2 
-Tl)/60" SECONDS"  irem  181 

Program  4: 

Lightning  Sort  Leader  For  PC/PCjr 

lOO  CLEAR,  gcHFEOO 

110  ON  ERROR  GOTO  lOOOO 

120  DEF  SEG 

130  CHECKSUM  =  O 

140  ADDRESS  =  &HFFOO 

150  READ  MLDATA 

160  WHILE  MLDATA  <>  -1 

170  POKE  ADDRESS, MLDATA 
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ISO  CHECKSUM  =  CHECKSUM  +  MLDATA 
190  ADDRESS  =  ADDRESS  •*•  1 
200  READ  MLDATA 
210  WEND 

220  IF  CHECKSUM  <>  22937  THEN  ERROR  200 
230  BSAVE  "Isorf ',&HFFOO,gcHDC 
240  END 

1000  DATA  85,137,229,139,118,6,139,4 
1010  DATA  72,185,3,0,247,225,139,86 
1020  DATA  8,1,208,189,252,254,137,86 
1030  DATA  2,137,70,0,252,41,192,80 
1040  DATA  139,94,0,139,86,2,57,211 
1050  DATA  127,3,233,129,0,135,211,232 
1060  DATA  139,0,118,5,131,195,3.235 
1070  DATA  246,135,211,57,211,126,31,131 
1080  DATA  235,3,232,120,0,114,244,138 
1090  DATA  15,139,71,1,135,211,134,15 
llOO  DATA  135,71,1,135,211,136,15,137 
mo  DATA  71,1,135,211,235,214,139,118 
1120  DATA  0,138,4,134,7,136,4,139 
1130  DATA  68,1,135,71,1,137,68,1 
1140  DATA  139,86,0,3,86,2,209,234 
1150  DATA  57,218,114,23,139,70,2,131 
1160  DATA  195,3,137,94,2,131,237,4 
1170  DATA  131,235,6,137,94,0,137,70 
1180  DATA  2,235,21,139,70,0,131,235 
1190  DATA  3,137,94,0,131,237,4,131 
1200  DATA  195,6,137,94,2,137,70,0 
1210  DATA  88,64,80,233,114,255,88,72 
1220  DATA  124,7,80,131,197,4,233,103 
1230  DATA  255,93,202,4,0,139,118,0 
1240  DATA  181,0,138,12,139,116,1,58 
1250  DATA  15,118,2,138,15,139,127,1 
1260  DATA  243,166,116,1,195,139,126,0 
1270  DATA  138,13,58,15,195,-1 
10000  IF  ERR  <>  200  THEN  ON  ERROR  GOTO  O 
10010  PRINT  "Error  in  ML  data:  check  for 

typo's" 
10020  RESUME  240 

Program  5:  PC/PCjr  Sorflng  Demonstration 

10  CLEAR,  StHFEOO  :  DEF  SEG  :  CLS 

20  BLOAD  "lsort",«cHFFOO;LSDRT=&HFFOO 

30  NX=tOOO 

40  DIM  AA«(Ny.) 

50  LOCATE  2,16  ;  PRINT  "Creating  ";N7.}"r 

andoffl  strings" 

60  DEF  SEG=S(H40: RANDOMIZE  PEEK(ScH6C} 

70  FOR  1=1  TO  N%:LOCATE  3,16!PRINT  I 

SO  JX=RND(l)«10+l 

90  fi$=""!FOR  K=l  TO  J7. 

100  A«=A»+CHR* ( I NT (RND ( 1 ) «26+65> ) 

110  NEXT  K 

120  AA«(I)=A« 

130  NEXT  I 

140  CLB:LDCATE  2,16;PRINT  "Any  key  to  st 

art  sort:" 

150  A«=""s WHILE  A»="":A*=1NKEY«:WEND 

160  LOCATE  3,16tPRlNT  "sorting-   "} 

170  SS=PEEK<&H6C)+256tPEEK(&H6D) 

180  DEF  SEG: CALL  LSORT (AA« ( 1 > , NX) 

190  DEF  SE6=!<H40:FS=PEEK(«.H6C)+256«PEEK( 

<cH6D) 

200  PRINT  "done" 

210  LOCATE  5,16:PRINT  "Any  key  to  print 

sorted  strings" 

215  A*="": WHILE  A«=" "s A*=INKEY«j WEND 

220  FOR  1=1  TO  N7.:PRINT  AAKDiNEXT 

230  PRINT  NX; "elements  sorted  in"5tFS-SS 

)/18; "seconds" 


Notes  For  Apple  Version 
Of  Lightning  Sort 

Tim  Victor.  Editorial  Progrannnner 

The  Apple  version  of  "Lightning  Sort," 
shown  in  Programs  6  and  7,  requires  an  Apple 
II  with  at  least  48K  of  random  access  memory 
and  one  disk  drive.  It  has  been  tested  on  an 
Apple  II  Plus  under  DOS  3.3  and  on  an 
Apple  lie  under  ProDOS  as  well  as  DOS  3.3. 
The  Applesoft  demonstration  program  in  Pro- 
gram 7  uses  the  BLOAD  command  to  load 
the  file  LIGHTNING.SORT.  This  is  a  binary 
file  containing  the  Lightning  Sort  program 
that  is  entered  from  Program  6  using  the 
Apple  II's  built-in  ML  monitor. 

Boot  your  computer,  then  type 
"CALL— 151"  to  use  the  monitor.  When  you 
hit  RETURN,  the  Applesoft  input  prompt  will 
be  replaced  by  an  asterisk  ("*"),  the  mon- 
itor's prompt.  To  enter  a  line  from  the  listing, 
replace  the  hyphen  after  the  first  four-digit 
hexadecimal  number  with  a  colon.  The  first 
line  in  the  listing  would  be  entered  as 
9400:  20  Bl  00  20  05  El  AS  AO 

Since  no  checksums  are  used  in  the  list- 
ing, it's  a  good  idea  to  make  sure  that  the 
program  in  memory  is  correct.  You  can  ask 
the  monitor  to  display  the  contents  of  any 
memory  location  by  typing  its  address  as  a 
hexadecimal  number  and  hitting  return.  To 
examine  a  range  of  memory  locations,  type 
the  address  of  the  first  location  in  the  range, 
a  period  {"."),  and  then  the  address  of  the 
last  locafion  in  the  range.  For  example.  Pro- 
gram 6  was  made  simply  by  entering 
"9400.9551"  in  response  to  the  asterisk 
prompt. 

When  you're  sure  that  the  program  is 
entered  correctly,  save  it  to  disk  using  the 
BSAVE  command.  All  DOS  commands  work 
in  exactly  the  same  way  when  entered  from 
the  monitor  as  when  they  are  used  in 
Applesoft.  You  can  CATALOG,  BLOAD, 
BSAVE,  DELETE,  and  even  LOAD  and 
SAVE  BASIC  programs.  To  save  the  pro- 
gram you  just  entered,  type  "BSAVE 
LIGHTNING.SORT,A$9400,L$152"  and  hit 
RETURN.  DOS  will  create  a  binary  file 
named  "LIGHTNING.SORT"  and  store  in  it 
$152  (338  in  decimal  notation)  bytes  beginning 
at  memory  location  $9400  (decimal  37888). 


Program  6:  Lightning  Sort  fk>r  The  Apple 

9400-  20  Bl  00  20  05  El  A5  A0 
9408-  85  FE  A5  Al  85  FD  20  Bl 
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9410- 
9418- 
9420- 
9429- 
9430- 
9438- 
9440- 
9448- 
9450- 
9458- 
9460- 
9468- 
9470- 
947B- 
9490- 
9488- 
9490- 
9498- 
94A0- 
94A8- 
94B0- 
94B9- 
94C0- 
94C8- 
94D0- 
94D8- 
94E0- 
94Ea- 
94F0- 
94F8- 
9500- 
9508- 
9510- 
9519- 
9520- 
9528- 
9530- 
953B- 
9540- 
9543- 
9550- 


00  20  E3 
9D  52  95 
9D  66  95 
D0  02  C6 
18  BD  7A 
95  BD  8E 
95  aa  D0 
IC  BD  66 
95  85  IE 
20  12  95 
60  AS  IE 
IB  A0  02 
88  10  FS 

69  03  85 
A0  02  Bl 
10  FS  20 
A5  IE  E9 
C6  IF  20 
02  Bl  IE 
Fe  20  ID 
Bl  IC  91 
IC  88  10 
Bl  IC  91 
IC  88  10 

70  7A  95 
7D  BE  95 
IE  20  12 
95  90  53 
67  95  20 
95  4C  44 
7B  95  BD 
20  42  95 
44  94  A5 
AS  IC  C5 
C4  ED  B0 
Bl  EE  Dl 
FA  60  18 
52  95  A5 
95  60  38 
7A  95  A5 
95  60 


DP  A2 
9D  7A 
9D  SE 
FE  C6 
95  65 
95  65 
EC  BD 
95  85 
BD  8E 
90  04 

as  lA 
Bl  lA 
30  0B 
IC  90 
IC  99 
ID  95 
03  85 
12  95 
99  ED 
95  B0 
IE  B9 
F4  30 
lA  B9 
F4  18 
85  IE 
85  IF 
95  B0 
95  BD 
32  95 
94  BD 
9E  95 
E8  20 
ID  C5 
IE  60 
0B  C4 
FB  F0 
A5  IC 
ID  69 
AS  IC 
ID  E9 


01  A5  83 
95  A5  84 
95  AS  FD 
FD  A0  03 
FD  9D  7A 
FE  9D  BE 
52  95  85 
ID  BD  7A 
95  85  IF 
CA  00  E4 
A5  IF  85 
99  FA  00 
IB  A5  IC 

02  E6  ID 
ED  00  99 
90  E6  39 
IE  B0  02 
80  IF  A0 
00  88  10 
El  A0  02 
ED  00  91 
B7  A0  02 
FA  00  91 
BD  52  95 
BD  66  95 
66  IF  66 
16  BD  52 
66  95  9D 
E8  20  42 
7A  95  9D 
9D  SF  95 
32  95  4C 
IF  D0  04 

A0  FF  ca 

FA  B0  06 
Fl  60  C4 
69  03  9D 
00  9D  66 
E9  03  90 
00    9D  8E 


Program  7:  lightning  sort  Looder  For 
The  Apple 

10   HIMEM:  38400:  HOME  :  HTAB  S:  PRINT 

"APPLE  LIGHTNING  SORT  DEMO" 
20   HTAB  10:  PRINT  "LOADING  LISHTNING. SORT' 
30   PRINT   CHR*  (4) "BLDAD  LIGHTNING.  SORT" 
40   HIMEM:  37887 
50  N  =  1000 
60   DIM  AA$(N) 

70   HOME  :  PRINT  "CREATING  "N"  RANDO 
M  STRINGS" 
FOR  I  =  1  TO  N 
VTAB  2:  PRINT  I 

INT  (  RND  (1)  *  10  +  n 


80 

90 

100  Nl  = 

110  A*  = 


120  FOR 
130  B»  = 
140  H*  = 


170 
180 
190 
200 
210 
220 
230 


(  RND  ( 1 )  *  26  +  65) ) 


J  =  1  TO  Nl 
CHR*  (  INT 
A*  +  B* 
150   NEXT  J 
160  fifi*(I)  =  A« 

NEXT  I 

PRINT  "HIT  ANY  KEY  TO  START  SORT" 

GET  A*:  IF  A*  =  ""  THEN  190 

PRINT  "SORTING "  CHR*  (7) 

CALL  37838, N,AA*(1) 

PRINT  "DONE"  CHR*  (7) 

PRINT  "HIT  ANY  KEY  TO  PRINT  SOR 

TED  STRINGS" 

GET  A*:  IF  At  =  ""  THEN  240 

FDR  I  =  1  TO  N:  PRINT  I , AA* ( I ) :  NEXT  ( 


240 
250 


For  the 

Commodore  64 


Telecomputing 


with  a  difference! 

Superlerm  —  the  onty  software  that  communicates  with 
them  all!  Information  networks  such  as  CompuServe; 
business  and  university  mainframes;  free  hobby  bulletin 
boards. 

Professionals  and  students:  SuperTerm's  VT102  emulation 
gets  you  on-line  in  style.  Advanced  video  features,  graphics, 
full-screen  editing,  80/132  column  through  sidescrolling, 
extended  key  hoard  —  perfect  for  EDI,  DECMail,  etc.  Even 
download  your  workfiles  and  edit  off-line!  Full  printer  and 
editor  support;  other  emulations  available. 

Researchers  and  writers:  Supeflerm's  built-in  text  editor 
helps  you  create,  edit,  print,  save,  send  and  receive  text 
files  —  articles,  stories,  reports,  inventories,  bibliographies  —  in 
short.  Its  your  informatfon  work  station.  Access 
CompuServe.  Dow  Jones  Information  Network, 
Dialog/Knowledge  Index,  Western  Union's  Easyiink,  The 
Source,  and  many  more.  Optional  Sprinter  accessory  saves 
printing  time  and  S  (see  below). 

Computer  hobbyists:  Join  in  the  fun  of  accessing  hundreds 
of  free  bulletin  board  systems  | BBS)  for  Commodore,  Apple, 
TRS-80,  etc.  Text  mode  with  all  BBS  systems:  up/downloading 
with  Commodore  BBS  systems  (Punter  protocol).  Special 
protocol  for  up/downloading  with  other  SuperTerm  owners. 
Popular  "redial-if-busy"  feature  for  use  with  automodems. 


Get  the  information  you  need,  for  business  or  for  fun, 
with  the  software  that  communicates  with  them  all! 


fiequif es  Commodore  64.  disk  dfive,  anti  suiwble  manual-  or  auto-modem.  Printer 
optional.  Software  an  disk  w/free  backup  copy.  Extensrve  manual  in  deluxe  binder 


SuperTerm 's 

SPRINTER  Accessory S69" 

With  the  Sprinter  accessory,  SuperTerm  can  perform 
concurrent  printing  —  as  text  appears  on  your  screen,  it's 
simultaneously  printed  on  your  printer,  Includes  all  necessary 
hardware  for  connecting  your  parallel  printer  and  computer 
via  the  cartridge  port.  Simply  plug- in  and  go.  Free  utility 
software  for  printing  and  listing  as  a  stand-alone  interface. 

Requrres  parallel  printer  such  ss  Epson.  Gemini.  Mkroline.  C  lion. 
(Min.  speed  is  cpsl 

COJnmodore  64  is  a  trademark  of  Commodore  FfectronKS.  LtO 


(816)333-7200 
MIDWEST 

MICRO  mc 


Sertd  lor  a  free  brochure. 

MAIL  ORDER:  Ma  S1.S0  snipplrHi  and- 
handllfig  (SISQ  lor  C.O.D.X  VIBAWastwcard 
aaceplsa  (cani#  and  exf}.  date).  MO  residents 
ackl  5.S25%  sales  tax.  Fixeign  ofttef?  payabie 
U.SS.  U.S.  Bank  ONLY;  add  S5  *p(tmdlg. 


I 
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Learning  With  Computers 


Glenn  M.  Kleiman 


Aids  For  The  Blind 


Computers  provide  new  and  powerful  aids  for 
blind  people.  With  special  input  and  output  de- 
vices and  programs,  computers  enable  blind  people 
to  more  effectively  substitute  hearing  and  touch 
for  sight  and  to  use  books,  magazines,  and  news- 
papers that  would  otherwise  be  inaccessible  to 
them.  Computers  can  help  blind  people  enjoy 
new  opportunities  for  education,  employment, 
social  interaction,  and  recreation. 

Much  of  this  information  about  aids  for  the 
blind  has  been  provided  by  the  staff  of  the  Sen- 
sory Aids  Foundation  of  Palo  Alto,  California. 
They  train  blind  people  in  job  skills  and  help 
them  find  suitable  jobs.  They  receive  support 
from  some  of  the  major  computer  and  electronics 
companies  in  Silicon  Valley,  and  have  placed 
workers  at  these  companies.  Other  information 
has  been  provided  by  Telesensory  Systems,  Inc., 
the  developers  of  Optacon  and  VersaBraille. 

Computer  Speech  Synthesis 

Speech  synthesizers  and  text-to-speech  conver- 
sion programs  make  it  possible  for  computers  to 
pronounce  any  word.  The  speech  is  not  perfect, 
but  people  understand  it  easily  after  they  get 
accustomed  to  it.  During  a  visit  to  the  Sensory 
Aids  Foundation,  I  watched  a  demonstration  of  a 
talking  terminal — a  computer  terminal  combined 
with  a  speech  synthesizer. 

The  blind  user  of  the  talking  terminal  has  a 
control  that  lets  him  move  a  pointer  to  any  line 
on  the  display  screen.  He  can  have  the  computer 


Dr.  Glenn  M.  Kleiman  is  an  educational  psychologist  and 
software  developer.  He  is  the  author  of  Brave  New 
Schools:  How  Computers  Can  Change  Education 
(Reston/Prentice-Hall)  and  the  designer  of  Square  Pairs, 
an  educational  game  program  (Scholastic,  Inc.). 
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announce  what  line  the  pointer  is  on  and  speak 
the  words  on  that  line.  He  can  have  it  repeat  any 
words  or  read  letter  by  letter.  He  can  use  the 
keyboard  to  edit  the  line. 

Talking  terminals  make  almost  all  the  capa- 
bilities of  a  computer  accessible  to  blind  people. 
At  Sensory  Aids,  blind  people  learn  to  use  talk- 
ing terminals  for  data  entry,  information  re- 
trieval, word  processing,  and  programming. 

Many  educational  programs  could  be  used 
by  blind  people  if  the  computer  spoke  what  ap- 
pears on  the  display  screen.  Staff  members  at 
Sensory  Aids  are  revising  some  popular  pro- 
grams so  that  blind  people  can  use  them.  During 
my  visit,  I  saw  a  version  of  MasterType  that  was 
adapted  for  the  blind.  In  the  MasterType  pro- 
gram, letters  and  words  "attack"  a  central  sta- 
tion. The  user  defends  the  station  by  typing  the 
letters  and  words  before  they  reach  the  station. 
In  the  adapted  version  of  this  program,  the  com- 
puter says  the  letters  and  words  to  be  typed,  and 
announces  whether  they  have  been  typed  cor- 
rectly and  quickly  enough  to  defend  the  station. 

Large  Print  Displays 

Many  people  with  impaired  vision  cannot  read 
normal  print,  but  can  read  large,  high-contrast 
print.  There  are  several  ways  to  create  large  let- 
ters on  the  computer  screen  with  standard  equip- 
ment. One  is  to  simply  use  a  television  or  video 
monitor  with  a  large  display  screen.  Another  is 
to  use  the  computer's  graphics  capability  to  cre- 
ate large  letters.  In  addition,  many  computer 
printers  can  produce  large  type  on  paper.  With  a 
suitable  printer,  any  informadon  stored  in  the 
computer  can  be  printed  in  large  letters.  ' 

A  special  large-print  display  processor, 
manufactured  by  Visualtek,  magnifies  letters  on 
personal  computer  screens  up  to  16  times  their 


usual  size.  A  control  panel  lets  the  user  set  the 
scanning  rate  at  which  the  letters  move  across 
the  display  screen. 

Tactile  Forms 

Many  people  cannot  see  any  letters,  no  matter 
how  large.  But  these  people  can  read  when  the 
letters  are  converted  to  a  tactile  form.  One  device 
which  does  that,  Optacon,  is  already  used  by 
many  blind  people, 

Optacon  consists  of  a  small  camera,  an 
electronics  unit,  and  a  stimulator  array.  The  array 
is  composed  of  144  miniature  rods.  The  electron- 
ics unit  interprets  the  light  pattern  received  by 
the  camera  and  sends  signals  that  cause  certain 
rods  to  vibrate,  thereby  producing  a  tactile  an- 
alogue to  the  light  pattern.  Some  training  is  nec- 
essary to  learn  to  read  the  vibrating  patterns,  but 
once  this  is  mastered  the  blind  person  has  access 
to  all  printed  materials.  Special  adapters  are 
available  so  that  Optacon  can  be  used  to  read 
computer  screens  and  calculator  displays. 

Other  devices  use  Braille,  a  system  of  writing 
in  which  each  letter  is  represented  by  a  pattern 
of  raised  dots  in  a  2  X  3  grid.  Blind  people  read 
by  feeling  the  dot  patterns. 

Although  widely  used.  Braille  has  several 
disadvantages.  Braille  books  are  extremely  bulky: 
A  standard  student  dictionary  fills  a  three-foot- 
square  box.  Braille  typewriters  are  noisy  and 
slow.  Errors  in  Braille  type  cannot  be  corrected, 
since  the  raised  dots  cannot  be  erased.  Braille 
books  are  therefore  expensive,  and  most  books, 
newspapers,  and  magazines  are  never  made 
available  in  Braille. 

Braille  Word  Processing 

special  Braille  printers  can  be  interfaced  to 
computers  so  that  any  information  in  the  com- 
puter can  be  transformed  to  Braille.  This  provides 
a  remedy  for  the  problem  of  Braille  not  being 
correctable.  A  word  processing  program  can  be 
used  to  produce  a  Braille  text  after  all  corrections 
have  been  made  on  the  computer  screen. 

Other  Braille  output  devices  can  be  inter- 
faced to  computers.  One  example  is  a  device  that 
contains  sets  of  pins  arranged  in  the  2  X  3  Braille 
grid.  Each  pin  can  be  raised  or  lowered,  thereby 
providing  a  mechanical  Braille  display.  This  de- 
vice can  be  controlled  by  computer  programs  to 
produce  instant  Braille  for  a  blind  computer  user. 

A  special  device  called  VersaBraille  incor- 
porates recent  advances  in  computer  technology. 
VersaBraille  is  composed  of  a  mechanical  Braille 
display,  a  cassette  information  storage  compo- 
nent, and  a  specially  designed  Braille  keyboard, 
all  under  the  control  of  a  built-in  computer. 
Information  can  be  entered  from  the  keyboard. 


revised  and  corrected  (editing  capabilities  are 
built-in),  stored  on  cassette,  and  transformed  to 
Braille  whenever  needed. 

VersaBraille  provides  a  solution  to  the  bulki- 
ness  of  Braille.  It  is  a  self-contained  unit  that  is 
easy  to  carry  and  can  store  400  pages  of  Braille 
on  a  standard  cassette  tape. 

A  major  advantage  of  VersaBraille  is  that  it 
can  be  linked  to  a  computer  via  a  standard  serial 
interface.  A  blind  person  can  connect  VersaBraille 
to  a  computer  and  quickly  transfer  information 
from  the  computer  to  VersaBraille's  cassette  stor- 
age system.  The  VersaBraille  can  then  be  taken 
away  from  the  computer  and  read  where  and 
when  convenient.  A  VersaBraille  user  can  also 
take  notes  during  class  lectures,  write  reports,  or 
enter  any  other  information.  He  or  she  can  then 
connect  VersaBraille  to  a  computer,  transfer  the 
information  to  the  computer's  memory,  and  use 
the  computer  to  print  the  information,  store  it,  or 
send  it  to  others  via  an  electronic  mail  system. 

Computerized  Letter  Recognition 

speech  synthesizers  and  text-to-speech  programs 
can  convert  any  words  stored  in  a  computer  to 
speech.  Other  devices  can  convert  information 
stored  in  a  computer  to  large  letter  displays  or  to 
Braille  or  other  tactile  signals.  However,  much  of 
the  information  people  need  is  in  books,  not 
computers.  To  fully  use  the  capability  of  comput- 
ers to  convert  text  to  speech.  Braille,  or  large 
print,  we  need  efficient  ways  of  transferring  text 
from  books  to  computers. 

Special  cameras  and  pattern  recognition  pro- 
grams have  been  used  for  some  time  to  recognize 
specially  designed  letters  and  numbers,  such  as 
the  account  numbers  on  checks.  The  camera  con- 
verts the  pattern  of  each  letter  into  a  binary  code. 
A  computer  is  programmed  to  process  the  binary 
code  and  determine  which  letter  it  represents. 

In  the  last  few  years,  devices  and  programs 
have  been  developed  which  make  it  possible  for 
computers  to  recognize  most  typewritten  charac- 
ters and  to  adjust  automatically  for  different  type 
styles  and  sizes.  In  the  next  few  years,  this  tech- 
nology is  likely  to  be  perfected  and  become  more 
widely  available.  (Only  very  limited  success  can 
be  expected  with  handwritten  letters,  due  to  the 
large  variations  found  in  even  one  person's 
handwTiting.) 

Letter-recognition  devices  can  be  combined 
with  appropriate  output  devices  to  produce  large 
size  displays,  speech  or  Braille.  Letter-recognition 
devices  can  also  be  combined  with  Braille  printers 
to  expedite  the  production  of  Braille  books. 

Converting  Print  To  Speech 

One  impressive  example  of  technology  which 
serves  the  visually  handicapped  is  the  Kurzweil 
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Reading  Machine  that  converts  print  to  speech. 
This  machine  combines  sophisticated  pattern 
recognition,  speech  synthesis,  and  text-to-speech 
conversion  capabilities.  It  lets  blind  users  control 
how  the  material  is  read.  They  can  set  the  speed 
of  reading  and  adjust  the  tonality  of  the  voice. 
They  can  stop  the  reading  at  any  time,  have  the 
last  few  words  or  lines  repeated,  request  the  ma- 
chine to  spell  out  words  or  announce  punctua- 
tion and  capitalization,  and  mark  certain  words 
or  phrases  for  later  reference.  This  reading  ma- 
chine is  currently  a  very  expensive  device.  But  as 
the  technology  advances  and  prices  decrease, 
machines  with  these  capabilities  should  become 
available  to  all  blind  people. 

Technology  For  The  Blind 

Of  51  blind  people  who  were  assisted  by  the 
Sensory  Aids  Foundation  during  a  one-year  pe- 
riod, fifteen  are  now  programmers,  computer  op- 
erators, or  systems  analysts.  Other  occupations 
include  design  engineer,  word  processor,  medical 
transcriber,  account  clerk,  attorney,  cashier,  clerk- 
typist,  physicist,  and  college  professor,  Their 
employers  include  Apple,  Hewlett-Packard,  Pa- 
cific Telephone,  Stanford  Linear  Accelerator, 
Department  of  Immigration,  Internal  Revenue 
Service,  and  other  businesses,  educational  institu- 
tions, and  government  agencies. 


Current  technological  aids  include  Optacon, 
VersaBraille,  talking  terminals,  talking  cal- 
culators, and  closed  circuit  television  systems  that 
produce  enlarged  images  of  print  on  a  television 
screen.  These  devices,  and  others  now  in 
development,  can  dramatically  increase  the 
opportunities  available  to  blind  people. 

Kurzweil  Computer  Products,  Inc. 
33  Cambridge  Parkway 
Cambridge,  MA  02142 

Sensory  Aids  Foundation 
399  Sherman  Ave.,  Suite  12 
Palo  Alto,  CA  94306 

Telesensory  Systems,  Inc. 
3408  Hillview  Ave. 
P.O.  Box  10099 
Palo  Alto,  CA  94303 


Visualtek 

1610  26th  Street 

Santa  Monica,  CA  90404 


Q 


COMPUTE! 

The  Resource. 


^REDUCES  DISKETTE  COST  50%* 

Make  use  of  the  back  of  your  5Va"  Diskettes 
and  SAVE 

•  KIB8LE  KOTCK  tools  make  it  easy. 

•  Adds  Itie  precise  notch  wtiere  you  need  it. 
Doubles  diskette  space  or  MONEY  BACK! 

XllittLEXOTCHI 

Cuts  square  notch  for  users  o( 

Apple,  H.  II +  ,  lie,  III, 

Franklin  and  Commodore. 

onty  $1 4.95  each 

add  $1,50  each  P&H  ($4.50  each  foreign  P&H) 

mimusmTCHU 

Cuts  square  notch  and  'a  inch  round 

"index  hole. "  For  use  with  computers  other 

than  those  shown  above, 

oniy  $21 .90  each 

add  $1-50  each  PSH  {$4.50  eacti  foreign  P&H) 
•Florida  Residents  Add  5%  Sales  Tax* 
SATISFACTION  GUARANTEED  OR  YOUR  MOf^EY  BACK! 

ORDER  TODAY! 

CALL  TOLL  FREE:  1-800-642-2536      ■=««« 

OR  SEND  CHECK  OR  MONEY  ORDER  TO:   ' ' ' 

XlltltLE  XifTVH  ciminiTEit  pmmucTS 

Division  OF  COHTRAN  l>iTERNAT10N»L 

4211  NW  75th  TERRACE  •  DEPT.  8  7-  LAUDERHILL,  FL  33319 

ALL  TIUDCUAHKS  ABE  ACKHOWLCOCEO 


Program  Your  Own  EPROIVIS 


^  VIC  20 
^C64 


$99.50 


0 

(Q 
C 

d) 

E 
a 


PLUGS  INTO  USER  PORT 
NOTHING  ELSE  NEEDED. 
EASY  TO  USE.  VERSATILE, 

•  Read  or  Program.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD, 
SAVE,  GET  INPUT  PRINT  CMD, 
OPEN,  CLOSE— EPROM  FILES! 
Our  software  lets  you  use  familiar  BASIC  commands  (o 
create,  modify,  scratch  files  on  readily  available  EPROM 
chips.  Adds  a  new  dimension  to  your  computing  capability. 
Works  with  most  ML  Monitors  too. 

•  Make  Aulo-Start  Cartridges  of  your  programs. 

•  The  promenade"  CI  gives  you  4  programming  voltages, 
2  EPROM  supply  voltages,  3  tntelligent  programming 
algorithms,  15  bit  chip  addressing,  3  LED's  and  NO 
switches-  Your  computer  controls  everything  from  software! 

•  Textool  socket.  Anti-static  aluminum  housing, 

•  EPROMS,  cartridge  PC  boards,  etc.  at  extra  charge. 
Some  EPROM  types  you  can  use  with  the  promenade" 


2758  J53J 

251 6  2732 

2716  27C32 

27C16  2732A 


462732P         27128  5133  XastGA' 

2564  27256  5143  52ei3- 

2764  68764  2815'  4eOteP* 

27C64  68766  2816" 

'C«ncm  e^ecirN^i^  na»ab(  TypM 


Call  Toll  Free:  800-421-7731 
In  California:  800-421-7748 

EJASON-RANHEIM 
580  Parrott  St.,  San  Jose,  CA  951 12 
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INSIGHT:  Atari 


Bill  Wilkinson 


Last  month  we  discussed  how  to  make  programs 
designed  for  the  Atari  400  and  800  load  and  run 
automatically  on  the  new  XL  series  without  hav- 
ing to  hold  the  option  key  down.  We  also  looked 
at  a  way  to  make  patches  into  Atari  DOS  2.0s  to 
enable  it  to  work  with  the  new  enhanced  density 
1050  disk  drive.  The  procedure  is  easy,  but  re- 
quires two  disk  drives.  Just  type  in  the  source 
code  (the  portion  printed  last  month  and  the 
continuation  found  in  this  issue)  using  an  assem- 
bler capable  of  placing  its  object  code  directly  in 
memory.  Assemble  it  after  LlSTing  or  SAVEing 
the  source  code  to  disk.  After  assembling  it  once, 
change  line  number  1000  to  read: 
1000  .OPT  NOLIST,OBJ 

and  assemble  the  code  once  more. 

DOS  should  now  be  patched.  Hit  the  SYS- 
TEM RESET  key  and  give  the  DOS  command 
from  your  assembler.  You  should  now  be  in  the 
DOS  menu  (if  you're  not,  something  has  gone 
wrong).  Format  a  new  disk  using  option  1  and 
then  write  the  DOS  files  using  option  H.  This 
will  insure  that  everything  is  right  and  will  give 


you  a  safe  copy  of  your  newly  patched  DOS. 

The  Tricky  Part 

There's  one  more  step  necessary  to  finish  the 
procedure.  Turn  off  your  computer,  put  your 
BASIC  (or  BASIC  XL)  cartridge  into  your  ma- 
chine, and  turn  the  power  back  on,  thus  booting 
the  disk  that  was  just  formatted.  Place  a  blank 
diskette  into  the  1050  drive  that  you  are  using 
as  drive  2  and,  from  BASIC,  type  the  following 
command: 

XIO  254,#1,0,34,"D2:" 

Drive  2  should  now  contain  an  enhanced-density 
diskette.  Now  hit  the  SYSTEM  RESET  key  so 
that  DOS  will  recognize  the  new  density.  Finally, 
go  into  DOS  and  write  the  DOS  files  to  the  new 
diskette  (D2),  using  option  H  from  the  menu. 

If  everything  has  been  done  properly,  drive 
2  should  now  have  an  enhanced-density  diskette 
containing  the  patched  DOS.  Once  you  have  this 
master  completed,  creating  others  is  simple  and 
can  be  done  with  the  I  and  H  options  in  the 
DOS  menu. 


Patches  To  Afar! 


0000 

07B5 

07B5  A920 
07B7  2D0203 
07BA  D002 


07BC 
0819 

0819  ADEA02 
081C  0A 
081D  08 
081E  0A 
081F  2A 

0820  2A 

0821  2A 

0822  28 

0823  6A 


DOS  2.0s 

1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


;  BEGIN  THE  ACTUAL  PATCHES 


iitittit$trfttttt**tittitiittftttttiitttttittti 

;  This  patch  allows  either  $21  or  $22  as 
;    a  format  command. 


*=   $07B5 
PATCHFORMAT 

LDA  #$20 
AND  DCBCMD 
BNE  $07BE 


format  cmds  are  $21  or  $22 

is  this  a  format  cmd? 

bit  $20  is  set,  so  yes... read 


This  patch  modifies  the  drive  type 
reported  by  DINIT  for  use  in  DRVTBL 


*=   $0819 
PATCHINIT 

LDA  $02EA 

ASL  A 


PHP 
ASL 
ROL 
ROL 
ROL 
PLP 
ROR 


get  drive  status 
and  this  sequence... 

. .will  serve  to 

..convert  the  status 

. .$00,  $20,  and  $80 

..to  the  more  usable 

. .$00,  $01,  and  $80 
(more  usable  because  what  we 
want  are  $01, $02,  and  $81) 
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0824 


1184  BE1113 

1187  200115 

USA  A8 

118B  F04E 


118D 
1501 
1501  8E7213 

1504  E8 

1505  8A 

1506  2903 
1508  8DFE12 
150B  48 


150C  A00A 
150E  A964 
1510  A221 
1512  2C7213 
1515  1005 
1517  A006 
1519  A980 
151B  E8 


151C 

151C  8E230D 


151F  8C800D 
1522  8CEE10 
1525  8C4211 

1528  88 

1529  8C0711 


152C  8D0A11 
152F  8D7A0D 
1532  98 


1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 

1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


This  patch  allows  SETUP  to  call  the  main 
patch-it-all-up  routine 

*=   $1184 
;  patch  to  SETUP  code 


LDX  DRVTBL.Y 

JSR  PATCHSETUP 

TAY 

BEQ  DERRl 


the  real  work 


itiriiitttiiittiitiitiiiiiiiitiittiittiititftiiii 
t 

;    The  major  patch: 

Here  we  determine  the  type  of  drive  for 
;  the  current  operation  and  patch  various 
r    locations  (including  LDA  #  instructions) 

*=   $1501 
PATCHSETUP 

STX  TRUETYPE  ;  save  true  drive  type 


INX 

TXA 

AND  #$03 

STA  DRVTYP 

PHA 


convert  0  or  1  to  1  or  2 

mask  off  1050  bit 
. . .and  save  it 

and  keep  it  for  later  return 
now  we  set  up  the  tricky  stuff 


we  need  different  VTOC  bases  and  sizes 
and  different  disk  sizes 

LDY  #$0A     J  810:  start  of  vtoc 

LDA  #90+$0A  ;  810;  end  of  vtoc  bytes 

LDX  #DCBCFD  ;  810:  format  conunand 

BIT  TRUETYPE  ;  test  drive  type 

BPL  SGLDBLJOIN  ;  810,  all  ok 

LDY  #$06     ;  1050:  start  of  vtoc 

LDA  #122+$06  ;  1050:  end  of  vtoc  bytes 

INX         ;  1050;  format  command  is  '"' 

;  now  store  these  values  into  code  { shudder  1 ) 
SGLDBLJOIN 

t 

STX  $0D23    ?  where  format  command  is  loaded 
the  various  uses  of  START-OF-VTOC 


STY  $0D80  ;  in  deallocation  of  boot 

STY  $10EE  ;  in  FRESECT 

STY  $1142  ,•  in  GETSECTOR,  displacement 

DEY 

STY  $1107  ,•  at  start  of  GETSECTOR 

;  and  the  uses  of  END-OF-VTOC 

r 

STA  $110A  ;  check  end  in  GETSECTOR 

STA  $0D7A  ;  a  CPY  in  format  code 
TYA 
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A  ATARI 

ATAl^l  IS  a  trademark  ol  ATARI  INC 

Atari  800XL Call 

1010  Program  Recorder 77.00 

1027  Letter  Quality  Printer  . . .  Call 

1050  Disk  Drive Call 

Atari  850  Interface Call 

Atari  Lighit  Pen 82.95 

Numerical  Keypad 104.95 


INTERFACES 

Aid  Interfast  I. . 
Ape  Face  


Call 
Call 


B-Verter  Modem 
Adaptor 3995 


DISK  DRIVES 

Indus  GT Call 

Percom Call 


Rana 1000  . 
Irak 


Call 
Call 


MOSAIC 

4aKRAM 94.00 

64K  RAM/400.  149.00 
64K  RAM;800  + 
Cable  Kit  #1  .  169.00 
Handyman-D  .  .  23.95 
Cable  Kit  #2  ., .  14.95 
Superdrive-D  .  -  23.95 

MODEMS 

Hayes  Smart 

Modem  300 Call 

Mark  II 79.00 

Mark  VllfAuto  Ansf 

Auto  Dial Call 

MarkXII/1200 

Baud Call 

MPP  1000  C Call 

Novation Call 

R-Verter  Modem 

Adaptor 39,95 


MONITORS 

AMDEK  Color  1+  Call 
USI  12"  Amber.  149.00 
USI  12"  Green  .  139.00 
USI  14"  Color.  .269.00 
BMC  12"  Color. 229.00 
BMC  12"  Amber  99.00 
BMC  12' Green.  95.00 
Ptiillips  12"  Green 

w/Sound 129.00 

Phillips  12"  Amber 

w.'Sound 139-00 


Triangle  Replacement 
Keyboard  for  400  54.95 


Alien  Voice 

Box  II 99.95 


Expansion  Memory 
foreOOXL Call 


SUPER  PRINTER  PACKAGES 

GGmini  10X  and  Apeface 339,00 

Prowriter  and  Apeface 409.00 

Prowriter+ Aid   Interf.  +  Cable.  .485.00 


Gemini  10X  and  Cardco  +  G 349.O0 

Prowriter  and  Cardco  +  G 419.00 

f^  acCiTional  sn  p.cr.a'ceson  3rin;erpa:KageS';i  Contirient^l  USA 


COMMODORE  64 

CBM    64 Call 

SX-64  Portable Call 

1541  Disk  Drive Call 

1526  Printer 279.00 

1530  Datasstte 66.00 

1702  Monitor Call 

1650  AD/AA  Modem 89.00 

RS  232  Interface Call 


TOUCH  TABLETS 

Koala  Pad-D  .  ,  -  69.95 


Koala  Pad-Cart  .  74.95 


PRINTERS 

Alphacom  40C 
w/lnterlace.  .  . 

Alptiacom  80C 
w/lntertace. . 

Axiom  AT-550  .  . 


.99.95 


189.95 
329.00 


Call  for  prices  on  ioysticks,  printer  cables,  blank  floppy  disKs,  oooks  and  other  computer  a 


A      T      A      R 


S      0      F      T      W      A 


ATARI 

Caverns  01  r^ais-Can 
Donkey  Kong -Cart 
Ocnkey  Kong  Jf  -Can 
Eastern  Front -Carl 
Joust -Can 
Jungle  Huni-Can. 
Uano  Bras  -Cart , 
Ms   Pac-Man-Can 

Penga-Cari 

Pole  Position  ■  Can 
Qix-Cfrl   , 
telspiiris  Fooilall-Cart 
Rooolron:  2084 -Can 
Star  Raiders -Cart 
Tennis -Can 
Aiariwrii'^f-Carl 
Family  rinances-D 
Home  Filing  Manager -D 

Mailing  List-T 

Syncalc-D 

Synlile-D 

Syntrend-D 

Logo  Cart 

Wy  Firsi  AlptiabBt-D 

Aiarimusic  i  or  ll-D 

Cor;verS3tional  Lang,-T 

Final  Legacy -Cart  .. , . 

Ballbiazer-Can 

Pialo-Carl 
Paint  -  D 

MeidsiIi  Basic  ll-Can 
Alan  Macro-Assembler- 
Carl 

Alan  Basic 'Cart 
Assembler  Edilrir-Cart 
BRODERBUND 
AE-0 

Arcaoe  Machine -0 
Bank  Slreet  Wiiler-D 
Cnopliller-D     - 
Drol-D 
Gumbaii-D 
Lodeionner-D 
Mask  ol  the  Sun-D 
Operation  wniriwintt-D 
DATASOFT 
Basic  Compiler- D 
Bruce  Lee-D/T 
Dallas- D 

Heathciilf-D/T. . . 
Letter  Wiiatd  , 

Micropainier-D 
Woney  Wizard 


32  95 
37  95 
39  95 
32  95 
39  95 
35  96 
35,95 
39.95 
35  95 
39.95 
3!  95 
3595 
35  95 

32  95 
35  95 
7495 
37  95 
37,95 
1995 
74  95 
7A  95 
74  95 
79  95 

26  95 
29,95 
44  95 
. .  Call 
,  Call 

Call 

33  96 
67  95 

67  96 
41,95 
46.95 

23,95 
41,96 
19  95 
2395 
23  95 
20,95 
2395 

27  96 
27  95 

55  95 
23  95 
23  96 
23  95 

Call 
23  95 

Cal 


DATASDFT  (coni  d  1 

Nmbier-D/I         ,   ,  20,95 

Spell  Wizard -D  34.95 

Telelalk-D            .  34,95 
Zax>on-0/T               ,27.95 

EPYX 

Dragons/ Pern -D/T  27.95 

FunWiin  Art-Can  27,95 
Gateway  to  Apshal  -Cart  27,95 

Jumoman  Jr  -Cart  27.95 

Jumpman-D/T  27,95 

Pilslop-Cart  2795 

pyzilemania  Call 

Summer  Games  Call 

Temple  of  Apshai-D/T  27  95 
INFQCOM 

Deadline-D              , ,  34.96 

Enctianter-D   ,  34.95 

lnfldei-0 34,95 

HansiIall-0  3495 

Snrcerer-D  34,95 

Starcros5-D  27,95 

Suspended -D  34  95 

Witness- D  34.95 

Zork  i.  II,  or  lll-D  27  95 

Sea  Stalker -D  34  95 
MISCELLANEOUS  ATARI 

Omnimon,  ,   .  82.95 

Piltall-Can  3', 95 

Biver  Raid -Cart  3195 

Diskey-0  34  96 

t;ttr3  DisassemPter  -  D  34  95 

Zomoies-D/T  23,95 

Codewriler-D  69.95 
Star  League  Baseball-D/T  22  96 

Star  Bmvl  Foolball-D7T  22.95 
Death  In  tlie  Canbtiean-O  27.95 

DinoEggs-0  27.95 

The  Heist -D  23  95 

Gyfu55-Car1  34  95 

James  Bond -Carl  34.95 

Popeye-Can  34  95 

Q-aeri-Cari              .  34.95 

Slar  Wars -Cart  34,95 

Return  ol  Heracles -D  26.50 

Master  Type-D/Can  27,95 

Snngwriter-D  ,27.95 

Flight  Simulator  ll-D  37  95 

ChalterSee-D  27,96 

SA,M.-D  41.95 

Castie  Woltenslein-D  20,95 
CompuServe  Starter  Kit  34.95 

Nome  A[:counIanl  .D  52,95 
Ken  Uston's  BiackiackO  49  96 


MISC.  ATARI  (cont  d  ) 

Megaloni-D  19  95 
Monkey  Wrench  II -Cart 49  95 

Movie  Maker -0  41  95 

PogoJoe-0.  20  95 

Spel:unker-D,.,,  27  95 

Ultima  lll-D       ,  41  96 

Jupiter  Mission- D  34.95 

Dreadnaugtit  Factor-Cart  31  95 

Keystone  Kapers-Cait  31  96 

Antica4-D 37  95 

Boulder  Dash -D/T  20  95 

Scraper  Caper-Cart  34.96 

Miner  2049  er -Cart  34  95 

Beachead-D/T  23  95 
OPTIMIZED  SYSTEMS 

Aclion-Cart      ..  74.95 

Basic  XL -Cart 74  95 

MAC/65-Cart  74,96 

[X)S  XL-0  27,95 

Action  Aid -D  27,95 
SIERRA  ON-LIHE 

Aquation- D  20  95 

Dark  Crystal -D  27  95 

Homeword  Speller -D  34,95 

Homeword-D 49  95 

OilsWell-D 23.96 

Prisoner- D 23.95 

Quest  lor  Tires -D  23  95 

Ultima  ll-D  4195 

Ultma  l-D  23.95 

Wiztype-D  23,95 

SSI 

Carrier  Force  0  41  95 

Combat  Leader -D/T  27.95 

Cosmic  Balance  ll-D  27  95 

Cosmic  Balance-D  27  95 

Broadsides -D.  27  95 

War  m  Russia -D  55  95 

50  Mission  Crush -0  27  95 

Queslron  -  D  34  95 

Rails  West -0  27  95 


COMMODORES^     SO 


ACCESS 

Neutral  Zone-D/r 23.95 

Spritemasier-D/T  23,95 
Beachhead-D/T  ,23.95 

Master  Composer- D       27,95 
BAHEHIES  INCLUDED 
ConsullanlD  69  95 

FSperdip  A7Spellpak-D  .  84.95 
Super  Busscard  II  Call 

Home  Invenlory-D  23  95 
Recipe -D  23.95 

Audio/Video  Cat- D  23,95 
Mail  List -D  .23.95 

Siamps-0  23.95 

CARDCO 

Cardpnnl/B  ..47.95 

CardCO-i-G  69.95 

Cardboard/5  ,59  95 

Cardkey  39.95 

Cassette  flecorder  47.96 
Printer  Utilily-D/T  .  19  95 
Write  Now  Carl  34.95 

Mail  UM-O  .   .  29.95 

COMMODORE 
Program  Bel  Guide  ,. .  19.95 

Assembler-D -39.95 

Easy  Finance  I. II. 
III,IV-D  -    19  95 

Easy  Calc-D  64  96 

Easy  Mali-D  19.95 

Easy  Scripl-D  .  .  44  95 
Easy  Spell- D       .  19  96 

Logo-D  57  95 

The  Manager -D  39  95 

General  Ledger-D   . . .   39.96 

Adds   Hec  -D     39,95 

Accts.  Pay,-D  39.95 

Magic  Desk-D  ,  .52.95 

Zork  1.  II  or  lll-D  32  95 

Suspended-D  .32.96 

Slarcross  0  32  95 

Beadlme-D  32.96 

Soccer-Cart  2995 


To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Inio,  Order 
inquirias,  or  lor  Wise.  Orders  - 

414-351-2007 


HANDIC 

64ForthCari  ,,   29,95 

64  Gral-Carl  23  95 

Stat  64-Cart  ,   23,95 

Calc  Result  Easy-Cart  ,34.95 
CalcflesuiAduanced-D  74  95 
Calc  Resut  Adv.-Cart  69,95 
The  Oiary-Can  .23,95 

The  Tool-Carl  ,  29.95 

INSTA{CIMMARON) 

Insts-WritecCan 39,95 

tnsta-Mail-D 24.95 

insia-Fiie-D  4995 

Management  ComtKJ ,  64.95 
lnsta-Calc-Can/0  3i,95 
lnsta-Graph-0  24,95 

Insla-Vestof-D  ,  3). 95 
Insta-Speed-D  ...  99,95 
Insia  Sched-Can/D, .  ,49.9b 
Insta-Music-Carl/D  ,  79,95 
Invest  Combo  ,  74,95 

MISC.  COMMODORE 
Ken  Ustons 

Black|ack-D  49.95 

Quick  Brown  Fox-D/Can    34 .95 

Ultima  lll-D  41.95 

Flight  Simulator  ll-D,  .37.95 
Night  Mission/ 

Pinbali-D/T  20.95 

Praticaic  =S-D  59.95 

M-File-D  64  96 

V*rd  Pn)3-t/Speli-D  74  95 
Home  Accountant -D  52  95 
Step  By  Step-D/T  44.96 
Barron's  Sat. -D  .67  95 

Brislles-D/T 20.95 

Telestar  64-Cart  37.95 

Star  League 

Basenall-D/T  20  95 

Castle  Wctlenstein-0  20.95 
Wasienype-D/Cart  27  95 
Vic  Switch  124.95 

first  Class  Mail  D  34,95 
A/Iec-D  ,     27.95 

Miner  2049er-Cari  27.95 
Sea  Dragon-D/T  .  23.95 
Diskey-D  34.95 

Hodge  ?odge-D/T  19.95 
Strip  Poker-D  23,95 

Mr    Robot-D  23.95 

Paml  Magic-D  34,95 

F*oyan-0/T 20.95 

Astro  Chase-D/T  , ,  20,95 
Flip  Flop-D/T 20.95 


Epson Call 

Gemini  10X.  .,269,00 

Okidata Call 

Prowriter  I Call 

Riteman Call 

ccessorles. 
F   T  W   A    R    E 

MISC.  CDMM.  (Conl  0  ) 
Basic  Building  Blks-D    54,95 

Critical  Mass-D 27.95 

Rescue  Squad -D  .  20  95 
Super  Tent  Word  Pro.-D  69.95 
Beyond  Wollenstein-O  23.95 
Sam-D  ,      41,95 

Challerbee-D  ,      27  95 

SPINNAKER 

Adienture  Creator-Can  27  95 
Aerobics-D  .30.95 

Aegean  Voyage-Cart. .  .27,95 
Alt  in  the  Color  Caves-C,  .27.95 
Alphabet  Zoo-Cart  23.95 
BuOble  Burst-Cart  .  27.95 
Cosmic  Lite -Cart  23,95 

Delia  Draming-Cart...  .27.96 

Facemaker-Cart    23,95 

Fraction  Fever-Cart  ,  ,  23.95 
Grandma's  House-D,..  23, 96 
Jukebox-Cart  27,95 

Kids  on  Keys-Cart  23.95 
KidwrilerO  23  95 

Kmdercomp-Can  20.95 

Ranch-Cart  27.95 

Rhymes/Hiddles-O  20.95 
Search/ 

Amazing  Thing-D. ,  .27.95 
Snooper  iH-D  .,  .30.95 
Snooper  #2 -D  30  95 

Story  Machine-Can  27,95 
Trains-O  ,     ,  27,95 

Up  For  Grabs-Cad  27  95 
SYNAPSE 

BlueMai-O/T 23  95 

Drelbs-0/T 23.95 

Fort  Apocalypse-D/T  .23,95 
Necromancer-D/T  ,  23.95 
Neiv  York  City-O/T  23  95 
Pharoan  s  Curse-O/T  23  95 
Protector  ll-D/T  23.95 

Ouasimodo-D/T  23.95 

Rainbow  Walker-D/T  23.95 
Relax  Stress 

Reduglion  Sys 64.95 

Shamus  Case  ll-D/T.  23,95 
Shamus-D/T  ,  .  23,96 
Slam-Ball-O/T  23.95 

Survivor-D/T  ,  , ,  23.95 
ZaxKon-D/T  ...27.95 

Zepplin-D/T  23  95 

O'Dlsk      T'Cassette 
Carl-Cartridge 


.^«# 


V^ 


C 


onipu±(/thLlLtu. 
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ORDERING  INFOFIMATION.  Please  specify  system.  For  fast  delivery  send  castiier's  ctieck.  money  order  or  direct  bank  transfers  Personal 
i  '^°,TS^"*  i^tiecks  allow  2  weeks  to  clsar.  Charges  tor  COD  are  S3.0O.  School  Purchase  Orders  welcome.  In  CONTINENTAL  USA  in- 
clude $3,00  shipping  per  software  order.  Include  3%  shipping  on  all  Hardware  orders,  minimum  S3  00,  Mastercard  S  Visa  please  include 
card  #  and  exoiration  dale.  Wl  residents  please  add  5%  sales  lax.  HI,  AK.  FPO.  APO,  Canadian  orders  — add  5%  shipping  minimum  S5  00 
All  other  (oreign  orders,  please  add  15%  shipping,  minimum  SIOOO.  All  goods  are  new  and  include  laciory  warranty  Due  10  our  low  prices 
^  ,Pf  ?,i^'*  delechve  returns  must  have  a  return  authorization  number.  Please  call  414-351  -2007  to  obtain  an  RA#  or  your  return 

will  NOT  be  accepted  lor  replacement  or  repair.  Prices  and  availability  are  subject  to  change  without  notice 


COMPUTABILITY 

P,0  Box  17882 
Milwaukee  Wl  53217 

ORDER  LINES  OPEI>J 
Mon-Ffi         11AM-7PMCST 
Sal  12PM-3PMCST 


1533  18 

1534  692E 
1536  8D840D 
1539  AE0113 
153C  68 
153D  60 


153E 
0D37 
0D37  1027 


0D39 
0D52 
0D52  02 
0D53  C302 
0D55  C302 
0D57  00FF 
0D59 
0D59  02 
0D5A  C503 

0D5C  C503 
0D5E  00FF 


0D60 

0D60  A000 
0D62  B9520D 
0D65  2C7213 
0D68  1003 
0D6A  B9590D 
0D6D 

0D6D  9145 
0D6F  CB 
0D70  C007 
0D72  D0EE 

0D74 

0D74  9145 
0D76  C8 
0D77  10FB 
0D79  EA 
0D7A  EA 
0D7B  EA 
0D7C  EA 


2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 


CLC 

ADC  #46      ;  adjust  for  .  .  . 

STA  $0D84    ;  the  directory  dealloc  in  fmt 

LDX  CURFCB   ;  recover  original  value 

PLA 

RTS 

itititiiittitttiiitiittiitiitiittiiiiiiiitiiiii 


This  is  another  major  patch... 

instead  of  using  set  values  for  VTOC 
info,  we  pick  from  one  of  two  tables 


*=   $0D37 
PATCHXFORMAT 
BPL  XF0 


;  same  source,  but  XF0  has  moved 


*=   $0D52 
TBL810 

.BYTE  2 
.WORD  707,707 


2490      .BYTE  0,$FF 
2500  TBL1050 
2510      .BYTE  2 
2520      .WORD  965,965 


0D7D 


2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 


BYTE  0,$FF 


we  have  moved  the  label  xf0 
...to  make  room  for  the  tables 

XF0 

LDY  #0 
XF01  LDA  TBL810,Y 

BIT  TRUETYPE 

BPL  TYPEOK 

LDA  TBL1050,Y 
TYPEOK 

STA  (ZDRVA),Y 

INY 

CPY  #7 

BNE  XF01 

t 

XF02 

STA  (ZDRVA),Y 

INY 

BPL  XF02 

NOP 
NOP 
NOP 
NOP 

This  patch  allows  the  user  to  choose 
diskette  type  for  formatting  via 
the  'XIO  254'  command 


*=  XFV 


;  Where  the  format  vector  is 
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0BD6  4C7313 


0BD9 
1372  00 


1373 

1373  BD4B03 

1376  F003 

1378  8D230D 

137B 

137B  4C180D 


137E 


0A1F 

0A1F 

0A1F  BD8213 

0A22  490C 

0A24  F024 

0A26  6A 

0A27  EA 

0A28 


0A28 

0A41  1009 
0A43 


0AD4  201F0A 
0AD7 


2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 

3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 


JMP  XFVPATCH 

The  label  'Z'  designates  some  unused 
memory  in  the  original  DOS  2.0s 

*=   Z 
TRUETYPE  .BYTE  0  ?  Where  PATCHSETUP  saves  true  disTc  type 

This  code  becomes  the  beginning  of 
the  FORMAT  code 

XFVPATCH 

LDA  ICAUX2,X  ;  Get  AUX2  value 

BEQ  XFVP2    ;  zero... don't  do  anything 

STA  $0D23    ;  non-zero. .. assume  it  is  type  of  format 
XFVP2 

JMP  XFORMAT 


iiiittttlttltttttitiiftltttltttritri*iitttiit 
t 

;    end  of  patches  for  1050  drive 


;  BEGIN  patches  for  BURST  l/O 
;  from  COMPUTE  1 ,  July,  1982 


iltt/lttttlttltlltllllfflltli'iftitttttlttt$it 
t 

*=   $0A1F 

t 

',    first,  patch  the  code  where  WTBUR  used  to  be 

WTBUR 
BURSTIO 

LDA  FCBOTC,X  ;  open  type  code 

EOR  #$0C     ;  check  for  mode  12  (update) 

BEQ  NOBURST 

ROR  A        ?  move  carry  to  MSB  of  A-reg 

NOP  ;  filler  only 

TBURST 

...  and  STA  BURTYP  remains .. .but 

BURTYP  is  negative  if  BURSTIO  was 
called  from  GET-BYTE  and  positive 
if  it  was  called  from  PUT-BYTE 

*=   $0A41 
;  so  we  must  patch  here  to  count  for  the  sense 
of  BURTYP  being  inverted  from  original 

BPL  WRBUR 

*=   $0AD4 

;  finally,  we  must  patch  the  GET-BYTE  call 
;    so  that  it  JSR's  to  new  location 

I 

JSR    BURSTIO 
.END 
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Commodore 
Autoboot 


David  W,  Mortin 


This  utility  makes  loading  and  running  programs 
quick  and  easy,  and  can  also  be  used  as  a  form  of 
copy  protection.  For  the  VIC-20  and  Commodore  64 
with  a  disk  drive. 


Have  you  ever  wondered  how  some  commercial 
programs  run  automatically  after  they're  loaded? 
"Autoboot"  enables  you  to  add  this  convenient 
feature  to  your  own  programs. 

Type  in  and  SAVE  Autoboot.  VIC  users 
should  substitute  the  following  for  lines  481  and 
491  before  saving: 

481    DATA    165,175,133,46,165,174,133,45,32 

,89,198,32  :rem   234 

491    DATA    142,198,76,174,199  : rem   77 

To  use  Autoboot,  first  load  the  BASIC  pro- 
gram that  you  want  to  make  bootable.  Then 
enter  POKE  43,0:POKE  44,1  and  SAVE  the  pro- 
gram using  a  different  filename.  This  version  of 
the  program  will  be  used  by  Autoboot.  Now  load 
and  run  Autoboot  and  enter  the  name  of  the 
modified  version  when  prompted,  Autoboot  will 
then  turn  it  into  an  autoboot  program  by  directly 
changing  certain  disk  sectors.  The  sector  numbers 
are  displayed  on  the  screen  as  Autoboot  runs. 

Since  the  VIC  and  64  automatically  relocate 
programs  when  loading,  all  autobooted  programs 
must  be  loaded  using  a  nonrelocatable  load  as 
follows: 

LOAD  "filename" fi,l 

Of  course,  any  BASIC  program  can  be  made 
to  load  and  run  from  disk  just  by  typing: 
LOAD  "filename",?,: 

and  pressing  SHIFT-RUN/STOP  instead  of 
RETURN.  But  the  power  of  Autoboot  lies  in  the 
copy  protection  it  provides.  To  copy  protect  your 
autorun  programs,  add  POKE  808,100  (VIC),'  or 
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POKE  808,234  (64)  as  the  first  line  in  your  pro- 
gram before  saving  the  modified  version  to  be 
used  by  Autoboot.  This  will  disable  the  RUN/ 
STOP  key,  the  RESTORE  key,  and  the  LIST 
command  as  soon  as  the  program  runs.  Since  the 
autobooted  program  will  run  as  soon  as  it's 
loaded,  the  user  won't  be  able  to  break  out  of  the 
program  to  SAVE  it. 

Autoboot 

Refer  to  the  "Automatic  Proofreader  article  before  typing  this 
program  in. 

100  PRINT" CcLR}  autoboot  " 5T=18 !S=1 :D$="0 
'':OPEN15,8,15,"I"+D$  s  rem  248 
OPEN2,8,2, "#"+"0"  : rem  234 

REM  ****  LOCATE  TARGET  i rem  158 
INPUT "FILENAME " ; NA$  f LN=LEN ( NA$ ) 

;reni  139 
GOSUB210SGOSUB300  t rem  245 

IFT=0THENPRINTNA$ "  NOT  FOUND" : GOTO 5 40 

: rem  18 
GOTO140  :rem  101 

GOTO540  :rem  106 

REM  ***POINT  TO  BYTE  AND  GET  IT  BITO 
( SPACE }X.  srem  108 

PRINT#15, "B-P:"2,L:GET#2,A$sIFA?=""TH 
ENA$=CHR$(0)  J  rem  197 

X=ASC(A$) : RETURN  s rem  206 

PRINT"TRACK"T"  SECT0R"S  :rem  148 
PRINT#15,"Ul:"2;D$jT;S  : rem  204 
L=0 : GOSUB180 : T=X : L=l : GOSUB180 : S=X : RET 
URN  srem  71 

REM  ***  CHECK  FOR  FULL  MATCH  srem  221 
FORJ=ITOI+LN : L=J : GOSUB180 : IFX=0ORX=16 
0THEN270  :rem  130 

X$=X$+CHR$(X) :NEXTJ  : rem  101 

IFX?<>NA$THENX$="": RETURN  :rem  23 
L=I-2 : GOSUB180 : TT=X ; L=I -1 ; GOSUB180 : SS 
=X: PRINT  trem  142 

GOTO340  srem  107 

REM  ***  CHECK  THROUGH  ONE  BLOCK  FOR  N 
AME  MATCH  : rem  54 

FORI=5TO230STEP32  : rem  15 

L=I : GOSUB180 : IFCHR$ ( X ) =LEFT$ ( NA$ , 1 ) TH 
ENGOSUB240  irem  95 


110 
120 
130 

140 

150 

160 
170 
180 

190 

200 
210 
220 
230 

240 
250 

260 
270 
280 

290 
300 

310 
320 


330 

340 

350 
360 

370 

380 
400 

410 

420 

430 
440 

450 
460 
470 

481 

491 
500 
510 

520 


530 
540 


NEXTl! RETURN  i rem  56 

REM  ***  ACCESS  1ST  SECTOR  OF  TARGET  P 
ROGRAM  :rem  199 

T=TT:S=SS:GOSUB210  irein  142 

L=2:GOSUB180:AL=XsL=3iGOSUBl80;AH=X:S 
A=AL+AH*256  trein  183 

IFSA<>256THENPRINT:PRINTNA$"  IS  NOT  P 
REPARED  FOR  AUTOBOOT" : GOTO 540 : rem  142 
REM  ***  ESTABLISH  FALSE  STACKS  rem  125 
PRINT#15, "Ul: "2; DR; TT; SS: PRINT 

! rem  104 
PORPB=173T0254STEP2:PRINT#15, "B-P: "2; 


PB 

PR1NT#2,CHR$(96); 
PRINT#15, "B-P: "2;PB+1 
PRINT#2,CHR$(3);  .-PRINT"*"; 


; rem  74 

; rem  160 

I  rem  113 

! NEXT  SPRINT 

:rem  22 
: rem  167 
jrem  116 


PRINT#15, "U2s "2?DR;TTrSS 

GOSUB210: PRINT 

REM  ***PUT  AUTOBOOT  CODE  ONTO  PAGE  3 

! rem  14 
DATA165, 175, 133, 46, 165, 174, 133,  45, 32, 
89,166,32  srem  229 

DATA  142,166,76,174,167  : rem  67 
PRINT#15,"Ul:"2;DRrT;S  :rem251 
FORPB=105TO121 s  READBYs  PRINT#15 , "B-P : " 
2;PB  srem  194 

PRINT#2,CHR${BY); sPRlNT".  "r  sNEXTiPRI 
NTsPRINTNA?"  CAN  NOW  BOOT  ITSELF" 

srem  0 
PRINT#15,"U2:"2;DRrTrS  srem  255 
CLOSE2sCLOSE15  : rem  87  © 


ATTENTION  COMMODORE  64  OWNERS: 
"Is  THE  CLONE  MACHINE  really  dead? 
Yes,  there  comes  a  time  when  a  product  grows  old  and  isn't  the 
latest  state  of  the  art.  Thank  goodness  we  understand  that  here  at 
Micro-W.  Our  all  new  version  (known  as  SUPER  CLONE)  will 
surely  prove  that  we  are  still  number  one  in  the  back-up  business. 
You'll  still  get  the  old  reliable 
Clone  Machine  but  we've 
added  the  following: 

1)  Afastck)necopy(approx. 
14  minutes)  thafs  simple  to  use 

2)  A  Super  Unguard  utilility 
that  quickly  handles  errors 
20  thru  29  (and  you  don't 
even  have  to  disassemble 
your  drive  like  some  of  our 
competitors  suggest) 

3)  A  new  unique  way  to 
back-up  formerly  uncopyable 
software. 

Don't  worry  if  you  are  a 
registered  owner  of  our  earlier 
version,  we've  got  you  on 
file  and  this  upgrade  will  only 
cost  you  $10  plus  shipping 
and  handling.  Dealers,  call 
us  for  stock  balancing  on  old 
merchandise. 
STILL  ONLY  $49  95* 


Should've  made  bacl^-ups  wiih  Super  Clone 

1342B  Route  23 

Butler,  N.J.  07405 

CALL:  (201)  838-9027  To  Order 

Dealer  and  Distributor  Inquiries  Inuited. 

*  We  wil!  Allow  S 1 S  tiadt  crrdil  lor  any  olhrT  copy  prograrr^  rlial  you  have  purchased  lowaid  th« 
puTclvie  of  SUPER  CLONE  at  (49  95  Vou  musi  provide  your  ongmai  purchased  pioducr  and 
slate  why  you  wanr  outi  innte4  This  olfer  may  be  u/ilSdrawo  al  any  rime 


Available  from: 

DISTRIBUTING.  INC. 


Atari  Paddle  Fixer 


Williom  Griner 


Here's  a  quick  fix  for  the  Atari  paddle  jitters  that 
still  preserves  the  paddles'  range. 


The  Atari  paddles  are  so  sensitive  that  the  heat 
of  a  hand  or  any  jarring  can  change  their  value. 
Some  paddle-based  games  don't  take  the  sen- 
sitivity into  account,  causing  their  characters  to 
flicker  annoyingly.  Try  this: 

KN1000  REH  get  tfie  paddle  value 

16  1010  PV  =  PADDLE  <PN)  :   IF  ABS(PV-OPV 

) >1  THEN  OPV=PV:   RETURN 
LF  1020  PV  =  DPV':  RETURN 

where: 

PN  is  the  paddle  number  (0-7) 

PV  is  the  value  read  from  the  paddle 

OPV  is  the  old  paddle  value  (initialized  to 
whatever  value  you  wish) 


Centered  Values 

The  above  subroutine  keeps  the  paddle  centered 
between  the  adjacent  values.  It  takes  a  difference 
of  two  steps  or  more  to  change  the  paddle  value. 
This  is  not  to  say  that  the  paddle  will  use  only 
all  even  or  all  odd  values.  For  example,  if  the 
paddle  is  at  value  77,  it  will  not  be  allowed  to 
move  directly  to  76  or  78.  If  you  want  to  move 
from  77  to  78,  you  will  have  to  move  to  80  or 
75,  then  to  78. 

Better  Than  Brackets 

This  method  is  better  than  dividing  the  paddle 
range  by  a  number  since  doing  so  creates  fixed 
brackets  of  possible  values  and  does  nothing  to 
keep  the  paddle  value  from  straddling  the 
bracket  boundaries.  This  method  could  also  be 
used  to  keep  the  paddle  in  a  wide  bracket,  allow- 
ing only  for  coarse  movement,  yet  giving  access 
to  the  entire  range  of  the  paddle's  values.  Q 
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Apple  Editing  Hints 


Patrick  Moyer 


Most  computer  owners  develop  a  love-hate 
relationship  with  at  least  one  feature  of  their  ma- 
chines. For  Apple  owners,  this  feature  is  often  the 
editing  functions.  Here  is  a  review  of  Apple  editing 
controls  and  protocols  and  some  tips  on  making  the 
process  easier  and  more  effective. 


The  Apple  uses  a  combination  of  screen  editing 
and  line  editing.  Changes  are  made  by  moving 
the  cursor  to  a  particular  line  which  has  been 
listed  on  the  screen  and  retyping  that  line.  This 
retyping  is  usually  accomplished  with  the  right 
arrow  key.  As  the  right  arrow  is  pressed,  the 
cursor  moves  to  the  right,  reentering  all  it  passes 
over,  A  change  is  made  by  typing  over  what  is 
already  there,  or  by  inserting  the  correction 
through  a  combination  of  cursor  moves. 

Physical,  Logical 

Therefore,  to  make  a  change,  we  must  specify 
the  line  to  be  changed.  In  this  case,  we  are  talk- 
ing about  a  line  of  BASIC,  not  a  line  displayed 
on  the  screen.  The  BASIC  line  is  called  a  logical 
line,  as  opposed  to  the  physical  line  that  is  dis- 
played on  the  screen.  A  logical  line  may  contain 
multiple  BASIC  commands  and  may  be  up  to 
255  characters  long.  The  physical  display  line  is 
the  40-letter  width  of  the  screen. 

Before  a  BASIC  line  can  be  changed,  it  must 
be  listed.  It  is  best  to  clear  the  screen  with  the 
HOME  command  initially.  This  eliminates  confu- 
sion about  what  was  changed  and  what  wasn't. 

When  a  line  is  listed,  the  computer  puts  one 
space  between  words  or  variables,  two  spaces 
after  the  line  number,  seven  spaces  at  the  end  of 
the  first  physical  line,  and  five  spaces  on  the 
right  and  left  sides  of  the  remaining  physical 
lines. 

Most  of  the  time,  these  extra  spaces  and 
lines  are  of  little  consequence.  One  can  just 
merrily  right-arrow  over  them  with  no  harm.  The 
one  exception  occurs  in  string  information 
{characters  in  quotes).  This  causes  a  problem.  If  a 
string  is  broken  between  two  or  more  physical 
lines  during  the  lisdng  process,  and  you  right- 
arrow  to  retype,  12  additional  spaces  will  be  in- 
serted between  the  last  character  on  the  first  line 
and  the  first  character  on  the  next  line.  Certainly 
not  what's  wanted.  The  common  solution  is  to 


avoid  the  right  arrow  and  use  the  cursor  with  the 
<ESC>K  sequence  instead. 

Simplified  Cursor  Control 

There's  an  even  simpler  solution.  Let's  edit  a  line 

step  by  step  to  demonstrate  this  technique 

(<ESC>  is  the  ESC  KEY,  <RET>  is  the  RETURN 

KEY): 

Here's  the  line  as  originally  typed: 

lOPRINT'THIS  IS  A  LONG  LINE  OF  STRING 
DATA"<RET> 

List  the  line.  It  looks  like  this: 

LIST10<RET> 

10  PRINT  'THIS  IS  A  LONG  LINE  OF  STR 
ING  DATA" 

We  then  type  <ESC>I,  repeating  the  I  key  until 
the  cursor  is  over  the  second  digit  of  the  line 
number;  J  is  pressed  to  move  the  cursor  one 
space  to  the  left,  (This  J  keypress  is  important.  If 
you  forget  it  and  continue  the  editing  process, 
you  will  gain  a  line  in  your  program.  Line  0  will 
be  created,  but  more  about  that  later.) 

Once  you've  moved  left,  leave  <ESC> 
mode.  This  is  done  by  pressing  any  key  not  hav- 
ing meaning  in  <ESC>  mode.  Because  some 
keys  not  normally  used  for  cursor  movement  do 
have  special  meaning,  it's  best  to  press  the  space 
bar.  Remember,  this  will  not  move  the  cursor. 

We  can  now  use  the  right  arrow  to  "retype" 
the  line  to  the  place  of  the  change.  The  repeat 
key  can  be  used  to  speed  this  process.  Let's  say 
you've  used  the  right  arrow  until  it  appears  after 
the  last  quote.  The  line  on  the  screen  looks  no* 
different.  However,  if  we  LIST  the  line,  we  now 
see  this: 

10  PRINT  'THIS  IS  A  LONG  LINE  OF  STR 
ING  DATA" 


If  we  type  RUN  we  get: 

RUN<RET> 

THIS  IS  A  LONG  LINE  OF  STR 

A 


ING  DAT 


Eliminating  Problem  Margins 

The  common  solution,  again,  is  to  right-arrow  to 
the  R  in  STR,  then  type  <ESC>  and  press  K 
repeatedly  to  move  the  cursor  until  you  reach  the 
I  in  ING.  Anyone  who  has  done  this  often  will 
know  how  easy  it  is  to  forget  <ESC>  K,  and  end 
up  with  a  string  of  K's. 

The  solution  is  simply  to  eliminate  those  ex- 
tra margins  unless  you  need  them.  Let's  start 
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with  the  same  original  line: 

lOPRINT'THIS  IS  A  LONG  LINE  OF  STRING 
DATA"<RET> 

To  edit  the  line  we  type: 

HOME:POKE33,30:LIST10<RET> 

The  HOME  gives  us  a  clean  screen  to  work 
with;  the  LIST  puts  the  line  to  be  edited  on  the 
screen.  A  POKE  instruction  places  a  single  num- 
ber into  an  "address"  in  the  computer's  memory. 
Address  33  controls  the  width  of  the  screen  dis- 
play. Placing  the  number  30  in  it  reduces  the  size 
of  the  screen  to  30  characters  wide  rather  than 
40. 

Caution:  The  POKE  must  be  done  before  the 
LIST  for  this  method  to  work.  The  HOME  is  op- 
tional, but  prevents  a  very  confusing  screen.  (Try 
it.  You'll  see  what  I  mean.)  The  screen  will  erase 
and  display: 

10    PRINT'THIS  IS  A  LONG  LINE  OF  S 
TRING  DATA" 

As  you  can  see,  the  line  is  30  characters 
wide  without  the  extra  margin  spaces.  Move  the 
cursor  to  the  line  number  as  usual.  The  right  ar- 
row may  be  used  without  ill  effect.  It  will  go  di- 
rectly from  the  S  on  the  first  display  line  to  the  T 
on  the  second  line  without  inserting  any  blanks. 
This  eliminates  the  need  to  use  the  <ESC>  K 
sequence. 

Once  you  have  finished  editing,  you  will 
need  to  type  TEXT.  This  command  will  return 
you  to  normal  40-character  screen  mode. 

Duplicating  Lines 

One  strength  of  Apple  II  editing  is  the  ability  to 
duplicate  lines.  Let's  try  an  example: 

HOME:  POKE33,30:LIST10<RET> 
10    PRINT'THIS  IS  A  LINE  TO  BE 
DUPLICATED" 

Next  move  the  cursor  up  to  the  line  using 
the  normal  <ESC>I.  When  the  cursor  arrives 
over  the  number,  move  it  left  until  it  is  over  the 
first  digit  of  the  number.  Then  press  the  space 
bar  as  before;  but  prior  to  using  the  right  arrow, 
retype  the  line  number,  say,  20.  Then  use  the 
right  arrow  to  "retype"  the  line  as  described 
above  until  you  reach  the  end  of  the  logical  line. 
At  this  point,  press  RETURN.  If  you  LIST  the 
program,  you'll  see: 

HOME:POKE33,30:LIST<ret> 

10    PRINT'THIS  IS  A  LINE  TO  BE 

DUPLICATED" 

20    PRINT'THIS  IS  A  LINE  TO  BE 

DUPLICATED" 

Once  you  have  moved  your  cursor  up  to  the 
number  and  changed  it,  you  do  not  have  to  reuse 
the  entire  line.  You  can  treat  it  like  any  line  to  be 
edited  further  if  necessary. 


Easy  Program  Merge 

This  technique  can  also  be  used  on  a  limited 
scale  to  merge  two  programs.  Let's  say  you  have 
a  favorite  subroutine  of  three  or  four  lines  which 
you  wish  to  add  to  a  program.  You  could  use  the 
merge  function  of  the  Renumber  program  on  the 
Systems  Master,  or  the  program  that  is  part  of 
the  Programmer's  Toolkit.  If  you  don't  have 
these  programs  or  you  don't  have  them  handy, 
here  is  a  simple  procedure: 

L  Save  the  program  you  are  working  on. 

2.  Load  the  program  which  contains  the 
lines  to  be  copied  to  your  new  program. 

3.  Clear  the  screen,  change  width,  and  list 
lines  (using  HOME:POKE33,30;LIST 
statements). 

4.  Now,  load  the  program  the  lines  are  to  be 
added  to. 

5.  Using  the  normal  <ESC>  and  right-arrow 
commands,  edit  each  line  without  changes. 
It's  best  to  edit  the  last  line  first  and  work 
up  the  screen,  entering  each  line  one  at  a 
time.  This  is  because  when  multiple  lines 
are  listed  and  edited,  once  <RET>  is 
pressed,  the  line  number  below  it  is  partially 
destroyed  and  has  to  be  retyped  by  hand. 
There's  nothing  wrong  with  changing  the 
line  numbers  to  fit  your  new  program  if  the 
current  line  numbers  are  a  problem. 

6.  Once  all  lines  are  edited,  save  the  pro- 
gram. If  you  list  it,  you'll  find  the  lines  are 
now  part  of  your  program. 

Finally,  if  you  want  to  cancel  a  particular 
change  as  long  as  you  have  not  pressed  <RET> 
yet,  cancel  the  editing  of  the  line  by  typing 
<CTL>  X.  Be  sure  that  you  press  the  <CTL> 
key  first,  then  X.  The  machine  will  answer  with  a 
backward  slash.  If  you  list  the  line,  it  will  be 
unchanged.  © 
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MACHINE  LANGUAGE 


Jim  Butterfield,  Associate  Editor 


Math  And  Tables 


I'm  frequently  asked  for  addresses  within  ROM 
that  do  certain  operations,  usually  mathematical 
functions.  I  do  my  best  to  talk  programmers  out 
of  this  approach  if  possible. 

For  one  thing,  the  addresses  of  the  ROM 
routines  vary  from  machine  to  machine.  I'd  pre- 
fer to  see  a  programmer  borrow  the  code  from 
the  ROMs  and  include  it  in  the  program.  At  least 
that  way,  transportability  is  not  a  problem. 

Using  ROM  math  routines  is  often  awkward. 
They  often  call  for  one  or  more  values  to  be 
placed  into  floating  point  accumulators  before 
calling,  and  return  values  in  the  same  areas.  A 
floating  point  number  is  often  an  inconvenient 
format  and  takes  a  fair-sized  conversion  routine 
to  bring  back  to  the  more  convenient  "fixed 
point"  notation  used  by  most  machine  language 
programmers.  The  total  effort  can  turn  out  to  be 
greater  than  programming  it  yourself. 

But  the  main  reason  that  I  try  to  discourage 
use  of  these  routines  is  this:  They  are  designed 
for  a  certain  number  of  digits  of  accuracy,  and 
your  program  usually  wants  either  greater  or  less 
accuracy.  If  you  need  less,  you're  wasting  proces- 
sor time  working  out  the  extra  places.  If  you 
need  more,  the  built-in  routine  will  not  do  the 
job  for  you. 

A  Question 

I  was  recently  asked  by  a  user  to  supply  the  ad- 
dress of  the  logarithm  routine  within  a  certain 
computer.  It  would  have  been  easy  to  just  an- 
swer the  question,  but  I  balked.  I  asked  the  user 
to  define  his  objective, 
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This  makes  an  interesting  case  history,  since 
the  objectives  were  changed  partway  through  the 
exercise.  We  have  a  chance  to  see  a  couple  of  ap- 
proaches to  avoiding  the  built-in  routines. 

My  first  thought  was  to  replace  the  ROM  log 
routine  with  a  streamlined  machine  language 
version.  There  are  several  efficient  ways  of 
calculating  a  logarithm;  any  book  on  numerical 
analysis  (or  an  encyclopedia)  will  supply  infor- 
mation on  this. 

First  Approach 

After  questioning  the  user  closely,  the  objective 
appeared  to  be  this:  An  eight-bit  reading  was 
being  taken  from  a  remote  device.  He  desired  to 
convert  this  reading  to  a  base  ten  logarithm  (with 
appropriate  scaling)  for  display  purposes,  and  the 
accuracy  of  the  result  was  to  be  16  bits. 

My  concept  of  the  approach  changed.  The 
magic  words,  "eight  bits,"  had  been  spoken.  The 
objectives  were  still  a  bit  fuzzy,  since  it's  hard  to 
get  a  full  16  bits  of  useful  data  when  your  orig- 
inal data  was  only  8  bits  accurate;  but  not  to 
worry  on  that  score  for  the  moment. 

Here's  the  pitch:  If  you  have  an  eight-bit 
value  to  work  through  any  mathematical  func- 
tion, use  a  table.  There  are  only  256  possible  val- 
ues to  be  worked  out,  256  questions  and  256 
corresponding  answers. 

We'll  need  to  have  two  tables — one  for  the 
low  part  of  the  answer  and  one  for  the  high 
part — but  that's  no  problem:  512  bytes  of  storage 
is  usually  not  hard  to  come  by. 


Looking  up  things  in  a  table  of  256  values  is 
the  ultimate  in  simplicity.  It's  sometimes  called  a 
"list  type  lookup,"  and  the  principle  is  very 
simple.  Put  the  original  value  into  an  index  reg- 
ister, and  read  out  the  indexed  answer.  Our  code 
might  read  something  like  the  following: 

LDX    — input  register— 
LDA   LOWTABLE,X 
STA    LOWRESULT 
LDA  HIGHTABLE,X 
STA    HIGHRESULT 

No  loops,  no  math,  no  complexity:  Five  instruc- 
tions and  it's  done.  We  must  be  sure  to  prepare 
the  table  in  advance,  but  that's  a  one-shot  task. 
In  fact,  BASIC  could  do  the  job  for  us  and  POKE 
the  values  into  the  table. 

Second  Approach 

When  the  requirement  was  examined  more 
closely,  the  rules  changed  and  the  problem  was 
inverted:  Given  a  16-bit  reading,  compute  the 
base  ten  logarithm  to  8  bits  of  accuracy.  The 
eight  bits,  by  the  way,  were  to  be  used  to  draw  a 
high-resolution  graph;  256  points  were  quite  suf- 
ficient for  the  resolution  required. 

This  requirement  makes  a  little  more  sense: 
Converting  16  bits  into  8  involves  a  loss  of  ac- 
curacy, but  that  was  compatible  with  the  display 
objective. 

We  still  have  the  magic  words  "eight  bits" 
embedded  in  the  problem,  but  this  time  they  de- 
scribe the  result.  We  can  still  use  our  table  ap- 
proach if  we  invert  the  way  we  use  the  table. 

Let's  build  our  table  this  way:  For  each  of 
the  256  entries,  we'll  put  the  corresponding  "anti 
logarithm"  in  the  table.  When  we  search  the 
table  to  find  the  closest  match  to  our  original 
value,  the  answer  will  turn  out  to  be  the  number 
of  the  table  entry. 

An  example  might  illustrate  what  1  mean 
here.  Suppose  the  16-bit  input  number  has  a 
value  of  2000.  The  desired  result,  allowing  for 
the  scale,  will  be  165.  In  slot  165  of  the  tables 
(high  and  low),  I'll  find  a  value  that's  quite  close 
to  2000.  My  task:  search  the  table  to  find  the 
closest  value. 

Binary  Splitting 

This  isn't  hard  to  do.  Most  of  us  have  learned  to 
search  a  table  by  using  a  "binary  split"  method, 
splitting  the  table  in  half  again  and  again  until 
we  find  the  value  we  want.  And  on  a  table  of 
size  256,  a  computer  can  do  a  very  efficient  job 
of  binary  splitting.  Eight  comparisons  and  it's  all 
over. 

The  code  would  follow  these  lines: 

LDA    #S80 
STA    MASK 


This  says,  "we're  going  to  split  the  table  into 
chunks  of  128  (hex  80)  this  time  around." 

LDX    #$00 
STX     POINTER 

We'll  kick  off  starting  at  position  zero  in  the 
table.  Here  comes  the  loop: 

LOOP       LDA    POINTER 
ORA  MASK 
TAX 

We've  added  our  offset  of  128  to  the  starting  po- 
sition of  zero,  so  our  first  comparison  will  be  at 
the  midpoint  of  the  256  table. 
COMPARE  

Let's  fudge  the  COMPARE  coding  for  the  mo- 
ment. We'll  need  to  load  our  high  and  low  bytes 
into  A,  compare  to  the  table  high  and  low  (in- 
dexed, of  course)  and  decide  whether  our  value 
is  higher  or  lower  than  the  table  entry.  If  our 
value  is  LOW,  we'll  branch  ahead  to  LOW; 
otherwise,  we  continue  with  HIGH: 
HIGH        STX     POINTER 

If  our  value  is  high,  we  store  the  index.  If  not, 
we  skip  this  instruction  and  continue  with  the 
old  value  in  POINTER. 
LOW         LSR     MASK 

Our  mask  contained  128,  the  size  of  the  "split." 
Now  we  are  dividing  it  by  two  so  that  it  becomes 
64,  and  32  the  next  time,  followed  by  16,  and  so 
on.  Eventually,  we'll  end  up  with  zero  as  the  bit 
rolls  out  of  the  end  of  the  byte, 
BNE    LOOP 

We  go  back  to  do  another  comparison.  Let's  see 
what  has  happened.  POINTER  started  at  zero.  If 
our  input  value  is  lower  than  table  item  128, 
POINTER  will  stay  at  zero  and  the  next  compari- 
son will  be  with  item  64.  On  the  other  hand,  if 
our  input  value  is  higher  than  table  entry  128, 
POINTER  will  be  changed  to  128,  and  the  next 
comparison  will  be  with  item  192.  In  other 
words,  we'll  split  the  upper  half  or  the  lower  half 
depending  on  how  the  previous  comparison 
went. 

It's  not  hard  to  see  how  the  program  zeros 
in  on  the  answer  after  eight  comparisons.  Finally, 
MASK  becomes  zero,  the  program  stops  looping, 
and  the  answer  may  be  found  in  POINTER. 

The  user  started  out  looking  for  a  logarithm 
routine  in  ROM,  and  ended  up  with  something 
much  better:  faster,  more  compact,  and  well- 
suited  to  the  application. 

And  there  was  a  free  bonus.  After  looking  at 
this  approach,  the  user  discovered  that  he  could 
do  something  he  had  previously  thought  imprac- 
tical: switch  to  a  new  display  scale — linear,  split 
scale,  or  whatever — with  no  difficulty.  It  was  just 
a  matter  of  turning  the  tables,  © 
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Commodore 
Disk  Pattern  Matching 

Part  1 

Jim  Bufterfield.  Associate  Editor 


The  flexible  Commodore  DOS  alloios  the  user  to 
LOAD,  Scratch,  and  obtain  a  directory  of  files  using 
the  symbols  *  and  ?  as  pattern  matchers.  The  quirks 
of  these  two  symbols  can,  however,  cause  problems. 
For  one  thing,  you  might  accidentally  erase  an  en- 
tire diskette. 


Commodore  disk  drives  are  versatile;  sometimes 
we  don't  realize  how  versatile  they  are.  In  this 
article,  we'll  discuss  pattern  matching:  how  it 
works,  and  how  to  use  it  to  get  rid  of  an  annoy- 
ing "comma"  file  that  sometimes  appears  on 
your  disk  directory. 

First,  a  recommendation;  Unless  you  have 
4.0  BASIC  (in  the  PET/CBM  series  of  com- 
puters), learn  how  to  use  the  Wedge  or  DOS 
Wedge  utility  program.  It's  a  great  convenience. 
We'll  refer  to  wedge  commands  within  this  arti- 
cle. The  DOS  Wedge  has  many  handy  features, 
but  the  two  most  important  are  these:  You  can 
find  out  about  a  disk  error  at  any  time  by  typing 
the  @  key  followed  by  a  RETURN;  and  you  can 
examine  a  disk  directory  without  disturbing  the 
program  within  your  computer's  memory  by 
typing  @$  followed  by  RETURN. 

Pattern  Matching 

It's  possible  to  identify  one  or  more  programs  on 
disk  without  specifying  their  full  names.  Match 
the  missing  part  of  the  filename  by  using  a  pat- 
tern. The  two  characters  used  for  this  are: 

?  -  to  match  any  single  character; 

*  -  to  match  any  following  characters. 
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If  I  have  two  files,  one  named  DIG  and  the 
other,  DOG,  1  can  specify  a  name  which  matches 
both  files  with  D?G — the  question  mark  matches 
any  character.  If  I  have  files  named  HOUSE,  HO, 
HOTDOG,  and  HORRIBLE,  I  can  match  them  all 
with  HO* — the  asterisk  matches  any  group  of 
characters,  including  no  character. 

This  is  good  if  you  can't  remember  a 
filename  exactly.  If  you  have  a  file  that  might  be 
called  CATFOOD  or  might  be  called  CAT  FOOD, 
but  you  can't  remember  which,  you  can  load  it 
regardless  of  name  with  LOAD  "CAT*",8.  The 
first  file  whose  name  begins  with  CAT  will  be 
loaded.  Unfortunately,  you  might  discover  that 
instead  of  the  program  you  wanted,  you  have 
loaded  something  else,  such  as  CATCH-MICE.* 
The  first  name  in  the  directory  that  matches  will 
be  the  one  loaded. 

We  can  use  pattern  matching  to  get  around 
this  problem.  If  you  load  the  directory  using  pat- 
tern matching,  you'll  see  all  programs  that  fit  the 
pattern.  To  examine  CAT  programs,  type: 

LOAD  "$0:CAT*",8 
or,  with  the  wedge  program: 

@$0:CAT* 

You'll  see  a  list  of  all  programs  (if  any)  whose 
names  begin  with  the  characters  CAT,  which  al- 
lows you  to  select  the  one  you  want. 

Command  Variations 

Note  that  LOAD  picks  the  first  program  that 
matches,  but  the  directory  picks  all  programs  that 
match. 

It's  probably  obvious  that  SAVE  must  not  al- 


low  pattern  matching.  You  must  save  a  real 
name,  not  an  approximation.  Tlius,  SAVE 
"CAT*",8  will  produce  a  syntax  error  from  the 
disk. 

The  Scratch  command  does  accept  pattern 
matching;  all  files  that  match  will  be  removed 
from  the  disk.  Use  pattern  matching  with  great 
care  when  using  Scratch;  you  could  remove  more 
files  than  you  planned. 

To  scratch  all  files  from  a  disk  that  begin 
with  the  letter  M,  you  would  type  the  following: 

OPEN  15,8,15 
PRINT#15/'S0:M*" 

or,  using  the  wedge; 

@SO:M* 

Be  careful.  There  might  be  more  files  starting 
with  M  than  you  expected.  Take  a  directory  list- 
ing first  (using  pattern  matching,  of  course). 

Here's  another  example.  Suppose  you've 
been  writing  a  BASIC  program  called  DIS.  As 
you  write  code,  you  save  the  program  from  time 
to  time,  creating  DISl  and  DIS2.  Then  you  start 
testing  and  correcting,  saving  new  versions  as 
you  go,  and  create  DISS,  DIS4,  and  DISS.  Fi- 
nally, you're  satisfied,  and  you  save  your  final 
version  as  DISK/EDIT.  How  can  you  get  rid  of 
your  five  development  programs,  named  DISl  to 
DISS?  Easy.  Scratch  pattern  DIS?  and  they  will 
all  go.  DISK/EDIT  will  stay,  since  the  ?  character 
matches  only  a  single  character.  Do  not  scratch 
pattern  DIS*  since  that  would  definitely  clobber 
DISK/EDIT. 

But  be  careful.  Just  before  you  give  the  com- 
mand to  scratch  pattern  DIS?,  take  a  directory 
with  the  same  pattern.  You  might  have  other 
files  called  DISK  or  DISH  that  match  the  same 
pattern.  So  you  might  code: 

LOAD  "$0:DIS?" 
LIST 

or,  with  the  wedge: 
@$0:DIS? 

You'll  see  the  programs  that  match  the  name 
pattern.  If  they  are  exactly  the  ones  you  want, 
type  the  Scratch  command;  or  with  the  wedge, 
you  can  go  back  and  type  over  the  dollar  sign 
with  the  letter  S;  pressing  RETURN  will  scratch 
these  files. 

New  Patterns 

There  are  other  patterns  that  are  less  well- 
known.  For  example,  a  filename  is  a  pattern;  it 
must  be  matched  exactly.  Thus,  if  I  have  a  file 
named  HOG  and  I  want  to  see  that  it  is  in  the 
directory,  and  perhaps  check  the  number  of 
blocks,  I  can  type: 

LOAD  "$0:HOG",8 
LIST 


or, 

@$0:HOG 

The  only  item  in  the  directory  will  be  file  HOG 
(if  it  exists). 

Let's  take  this  a  step  further.  Suppose  I  don't 
want  to  see  any  file  details.  All  I  need  is  the  title 
of  the  disk,  its  ID,  and  the  number  of  blocks  free. 
That's  easy:  Just  specify  a  file  that  does  not  exist 
on  the  disk.  The  directory  will  then  consist  of  the 
title  line  and  the  blocks  free  information.  I  often 
ask  for  a  directory  using  a  filename  such  as 
0:#$&!%.  This  isn't  an  expletive;  it's  just  a  name 
that  I  know  doesn't  exist  on  the  disk  so  that  I'll 
get  the  blocks  free  count. 

The  Lone  Asterisk 

You  would  think  that  a  pattern  consisting  of  only 
a  single  asterisk  would  mean  "any  file."  Thus,  a 
command  such  as  LOAD  "*",8  would  bring  in 
the  first  file  since  anything  will  match.  That's  not 
quite  correct:  The  asterisk  often  has  a  special 
meaning. 

The  single  asterisk  sometimes  means  "same 
name  as  last  time,"  It  may  have  been  Com- 
modore's intention  to  allow  a  user  to  load  a  pro- 
gram, and  later  save  it  with  the  same  name  with 
SAVE  "*",8,  the  asterisk  meaning  "same  name  as 
before."  This  was  never  implemented  fully,  but 
you  can  see  traces  of  this  idea  in  the  dual  disk 
copy  command.  If  you  have  a  dual  disk,  type: 
@C1:* =0:PROGN  AME 

We  can  see  that  this  command  asks  to  copy  a  file 
called  PROGNAME  to  drive  1;  but  what  name 
will  the  new  file  be  given?  The  destination  name 
is  * — which  in  this  case  means  "same  name." 
Thus,  the  new  file  will  be  named  PROGNAME, 
too.  It  seems  that  it  was  originally  Commodore's 
intention  to  allow  copying  to  take  place  with  pat- 
tern matching,  so  that  C1:*  =  0:RA*  would  copy 
all  files  whose  names  started  with  RA  from  drive 
0  to  drive  1  with  the  same  name.  If  you  have  a 
dual  drive,  try  it;  it  almost  works  correctly. 

So  it  turns  out  that  LOAD  "*",8  does  not  al- 
ways load  the  first  file  on  the  disk.  Sometimes  it 
loads  the  same  file  that  was  previously  loaded. 

Specifying  Type 

You  may  specify  a  file  type  by  adding  an  equals 
sign  to  the  pattern  followed  by  the  file  designa- 
tion: S  for  Sequential,  P  for  Program,  U  for  User, 
and  R  for  Relative  types.  You  may  also  type  the 
three-letter  designation  such  as  SEQ  or  PRG  if 
you  wish.  Thus,  0:*  =  S  will  reference  all  sequen- 
tial files,  0:B*  =  P  will  reference  all  programs 
whose  names  start  with  B,  and  0:?  =  P  will  ref- 
erence all  programs  with  one-letter  names. 

Next  month  we'll  look  at  a  common  disk  er- 
ror and  a  way  to  fix  it,  © 
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PROGRAMMING  THE  Tl 


C  Regena 


Writing  An  Educational 

Program 


I'm  sure  you  already  know  or  have  read  what  a 
"good"  educational  program  should  contain.  I'd 
like  to  discuss  how  you  actually  program  an 
educational  program.  I  decided  that  the  best  way 
I  could  describe  the  process  was  to  write  a  pro- 
gram, then  provide  a  step-by-step  explanation  of 
what  I  did. 

The  hardest  part  of  writing  any  program  is 
deciding  the  topic  and  the  type  of  program — drill 
and  practice,  tutorial,  simulation,  game,  etc.  I 
picked  a  very  popular  topic  for  computer  pro- 
grams, the  Morse  code,  and  decided  to  do  a  drill- 
and-practice  program.  Quite  a  few  readers  have 
requested  programs  for  secondary  school  stu- 
dents, so  next  month  I'll  present  a  tutorial  on  a 
high  school  subject. 

Memorization  Quiz 

A  drill-and-practice  program  is  useful  for  any 
subject  that  requires  memorization.  The  usual 
procedure  is  to  ask  a  question,  then  have  the  stu- 
dent input  an  answer.  If  you  can  avoid  INPUT 
and  use  CALL  KEY  instead,  there  will  be  much 
less  chance  for  errors  or  "crashing"  the  program. 
In  the  "Morse  Code"  program,  the  quiz  will  be 
to  press  the  letter  or  number  after  the  computer 
displays  a  code. 

I  decided  to  use  the  numbers  from  0  to  9 
and  the  whole  alphabet  in  the  quiz.  Since  each 
number  and  letter  corresponds  to  a  code,  1  set  up 
the  array  M$  to  contain  the  codes.  M$(0)  through 
M$(9)  will  hold  the  codes  for  the  numbers  in  or- 
der from  0  through  9.  The  alphabet  will  be  in 
M$(10)  through  M$(35).  Since  we  need  36  ele- 
ments for  the  array,  line  160  dimensions  M$. 
Lines  170-190  READ  the  codes  for  M$  from  data 
in  lines  200-250.  The  data  items  are  in  order — 
first  the  numbers  then  the  alphabet — each  item 
separated  by  a  comma. 

Dots  And  Dashes 

I  started  out  using  periods  for  dots  and  minus 
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signs  for  dashes,  but  decided  it  was  too  difficult 
to  type  periods  with  commas — too  much  chance 
for  typing  errors  in  the  DATA  statements.  Also, 
the  minus  sign  requires  the  SHIFT  key  and  the 
period  doesn't,  so  the  typing  was  a  little  more 
complex.  I  looked  on  the  ASCII  character  code 
chart  to  see  what  symbols  I  wouldn't  be  using  in 
regular  printing  and  decided  to  use  the  am- 
persand (&)  to  represent  a  dash  and  the  percent 
sign  (%)  to  represent  a  dot. 

I  borrowed  my  son's  Morse  code  chart  and 
converted  the  dots  and  dashes  into  %  and  & 
signs.  These  codes  are  in  the  DATA  statements 
of  lines  200-250.  You  may  use  longer  DATA 
statements  if  you  like  (the  TI  accepts  up  to  four 
screen  lines  for  each  numbered  line),  but  1  kept 
the  statements  shorter  to  make  it  a  little  easier  to 
type  and  debug. 

The  next  step  was  to  design  the  graphics — 
the  dots  and  dashes.  The  %  sign  represents  a  dot 
in  the  DATA  statement  codes  and  is  redefined  in 
line  140  using  a  CALL  CHAR  statement  so  that  it 
will  draw  a  dot  on  the  screen.  The  &  sign  is  re- 
defined as  a  bar-shaped  figure  in  line  150.  When 
a  dash  is  printed  on  the  screen,  it  will  actually  be 
three  &  signs  placed  together. 

The  subroutine  in  lines  360-470  is  the  main 
section  of  coding  that  translates  a  code  in  M$  to 
the  graphic  representation  on  the  screen.  Looking 
at  a  code,  if  the  symbol  is  %  we  need  to  draw  a 
dot,  and  if  the  symbol  is  &  we  need  to  draw  a 
dash.  This  process  continues  for  the  entire  data, 
which  can  be  from  one  to  five  dots  and  dashes. 
Line  360  instructs  the  computer  to  check  from  1 
to  the  length  of  the  data  (which  will  be  from  1  to 
5).  Line  370  assigns  a  one-character  value  to  A$ 
for  every  increment  of  the  FOR-NEXT  loop  in 
line  360.  This  one-character  value  is  the  symbol 
in  the  Jth  place  of  the  string  in  the  DATA  state- 
ments. Lines  380-430  instruct  the  computer  to 
print  a  dot  if  the  symbol  is  %  and  a  dash  (which 


is  &&&)  if  the  symbol  is  &.  I  put  a  space  after 
the  dot  or  dash  to  separate  them  slightly  on  the 
screen.  You  could  use  CALL  HCHAR  instead  if 
you  wish,  but  I  used  PRINT.  By  printing  with 
semicolons,  everything  will  stay  on  the  same  line 
and  be  printed  right  after  the  previous  printing. 

Making  Some  Noise 

Since  the  TI  has  sound,  we  can  use  sound  in  our 
Morse  code  program.  Besides  that,  real  Morse 
code  transmission  is  by  sounds.  Line  390  plays  a 
sound  for  a  dash,  and  line  420  plays  a  different 
sound  for  a  dot.  I  used  a  sound  duration  of  300 
for  the  dash  and  60  for  the  dot.  As  you  learn  the 
Morse  code,  you'll  probably  want  to  shorten 
those  durations.  You  should  also  try  different  fre- 
quencies instead  of  the  one  I  chose  (131)  or 
combinations  of  frequencies  and  noise  numbers 
to  get  a  sound  you  like.  Line  440  stops  the  sound 
so  that  dots  and  dashes  are  distinct.  If  you  don't 
have  this  statement,  dashes  would  run  together 
and  you  wouldn't  be  able  to  tell  how  many 
dashes  there  should  be. 

Line  450  forces  the  loop  to  go  to  the  next 
symbol  in  the  code.  Line  460  PRINTs  to  get  off 
the  present  line  (colon  means  "go  to  the  next 
line"  in  printing)  and  add  an  extra  line  between 
codes.  Line  470  returns  program  execution  from 
this  subroutine. 

Returning  To  The  Menu 

I  thought  it  would  be  nice  to  review  the  numbers 
and  letters  before  having  to  take  the  quiz,  so 
there  are  three  sections:  Numbers,  Alphabet,  and 
Press  a  Key.  Numbers  will  print  each  number 
and  show  the  corresponding  Morse  code.  Alpha- 
bet will  go  through  the  whole  alphabet  in  order 
and  print  each  letter  with  its  code.  In  Press  a  Key 
the  student  can  press  any  number  or  letter,  and 
the  computer  will  print  the  code.  In  any  of  these 
sections  the  student  can  at  any  time  press  EN- 
TER, and  the  demonstration  will  stop  and  the 
program  will  return  to  the  main  menu  screen. 

The  procedure  to  see  the  codes  for  the  num- 
bers is  in  lines  560-670,  Line  570  begins  the 
FOR-NEXT  loop  with  the  counter  I  varying  from 
0  to  9  for  the  numbers.  The  number  is  printed 
(by  printing  I),  then  the  subroutine  at  360  is 
called  which  deciphers  the  code  M$(I)  into  the 
dots  and  dashes  and  prints  the  code  on  the 
screen  while  playing  the  tones.  Line  600  callg 
subroutine  480,  which  is  simply  a  delay  loop  to 
create  a  slight  pause  between  numbers.  Lines 
520-530  check  to  see  if  the  student  has  pressed 
ENTER  to  return  to  the  main  menu  screen  and 
stop  the  numbers  section. 

The  Alphabet  section,  lines  680-790  is  simi- 
lar to  the  Numbers  section.  This  time  the  loop 


counter  I  varies  from  10  to  35,  and  the  codes  will 
go  in  order  from  M$(10)  to  M$(35),  which  are 
the  letters  from  A  to  Z.  To  print  the  letters  with 
the  codes,  line  700  uses  the  CHR$  function.  The 
ASCII  codes  of  the  letters  are  from  65  to  90. 
Since  the  loop  counter  I  varies  from  10  to  35,  the 
ASCII  codes  for  CHR$  are  55  +  1. 

In  the  Press  a  Key  section,  the  student  may 
press  a  letter  or  number  and  the  computer  will 
display  the  code.  This  section  could  be  used  as  a 
quick  review  for  students  who  want  to  study  cer- 
tain letters.  The  student  may  also  spell  words 
and  phrases  one  letter  at  a  time  to  see  and  hear 
the  Morse  code  equivalent.  Lines  840-920  detect 
which  key  is  pressed.  If  the  ENTER  key  (K  =  13) 
is  pressed,  the  program  branches  back  to  the 
main  menu  screen.  The  IF-THEN  statements 
make  sure  that  only  a  number  or  a  letter  is 
pressed;  all  other  keys  are  ignored.  The  variable 
K  holds  the  ASCII  value  of  the  key  pressed,  and 
lines  900  and  930  relate  K  to  the  variable  I  which 
is  used  to  print  the  code  M$(I). 

The  instructions  are  in  lines  970-1040,  and 
the  quiz  is  contained  in  lines  1050-1490.  The 
quiz  consists  of  all  ten  numbers  and  26  letters. 
An  array  N{)  is  set  up  so  each  of  the  36  elements 
from  0  to  35  is  equal  to  1.  This  is  in  lines 
1050-1070.  Later  as  one  of  the  numbers  or  let- 
ters is  answered  correctly,  N(I)  will  be  set  to  zero 
so  it  cannot  be  chosen  again.  Line  1080  initializes 
the  number  of  guesses  G  to  zero  for  the  scoring. 

The  quiz  loop  first  chooses  a  random  num- 
ber (I)  from  0  to  35  (line  1140).  If  the  number 
has  previously  been  answered  correctly,  N(I)  will 
be  zero  and  another  number  I  is  chosen.  Lines 
1160-1190  determine  the  correct  answer  L  for 
the  number  1,  which  will  be  the  ASCII  code  of 
the  number  or  letter  chosen.  Line  1200  calls  the 
subroutine  to  print  and  sound  out  the  code  cho- 
sen, and  line  1210  increments  the  number  of 
guesses. 

Lines  1220-1290  detect  the  key  the  student 
presses;  makes  sure  it  is  ENTER,  a  number,  or  a 
letter;  and  then  prints  the  key  pressed.  If  the  key 
pressed  is  ENTER,  the  program  branches  back  to 
the  main  menu  and  the  quiz  ends.  Lines 
1300-1390  determine  if  the  key  pressed  is  the 
correct  answer.  If  the  answer  is  incorrect,  an  "uh- 
oh"  sound  is  played  and  the  program  branches 
back  to  line  1200  to  dispL^y  and  sound  the  code 
again  and  wait  for  another  answer.  If  the  answer 
is  correct,  an  arpeggio  is  played.  After  the  code  is 
answered  correctly,  line  1400  sets  N(I)  to  zero  so 
that  code  cannot  be  chosen  again,  and  line  1410 
goes  to  the  next  problem.  The  student  must  get 
the  right  answer  to  continue  the  quiz. 

Quiz  Variations 

You  can  change  the  program  to  give  the  right 
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answer  if  the  student  misses.  Instead  of  lines 
1330  and  1340,  print  CHR${L)  or  CALL  HCHAR 
or  CALL  VCHAR  and  put  L  on  the  screen,  then 
branch  to  line  1400.  In  this  case  you  might  want 
to  keep  a  score  of  number  correct  and  number 
incorrect.  You  might  want  to  allow  that  missed 
letter  or  number  to  be  shown  again.  Branch  to 
line  1410  instead  of  1400,  and  before  you  branch 
set  Z  =  Z— 1.  Another  way  would  be  to  GOTO 
1140  instead  of  changing  the  loop  counter  Z  and 
going  to  the  NEXT  Z. 

If  you  prefer  to  let  the  student  guess  two  or 
three  times  before  the  correct  answer  is  given,  set 
up  a  flag  (FLAG  =  0)  at  line  1155  then  at  line 
1340  increment  the  flag  (FLAG  =  FLAG +  1).  You 
could  then  branch,  depending  on  the  value  of 
FLAG,  either  back  for  another  guess  or  to  give 
the  answer  and  branch  to  the  next  problem. 

You  might  prefer  to  have  a  quiz  of  a  certain 
number  of  codes,  say  10,  rather  than  all  10  num- 
bers and  26  letters,  Change  line  1130  to  FOR 
Z  =  l  TO  10.  Using  lines  1150  and  1400  will  still 
prevent  the  quiz  from  choosing  the  same  number 
or  letter  more  than  once. 

Another  idea  would  be  to  have  an  infinite 
quiz.  Take  off  the  FOR-NEXT  loop,  lines  1130 
and  1410.  Also,  you  won't  need  lines  1150  and 
1400  (and  1050-1070)  because  the  numbers  and 
letters  can  keep  being  chosen.  Now  the  quiz 
keeps  going  until  the  student  presses  ENTER  to 
return  to  the  main  menu  screen. 

In  this  type  of  quiz  you  may  want  to  make 
sure  the  code  is  not  the  same  as  the  previous 
one.  We  can  use  a  variable  PI  for  previous  I  cho- 
sen, and  add  these  two  lines: 


A  150 
1  155 


IF  PI  =  I 

PI  =  I 


THEN   1140 


You  can  change  the  Numbers  and  Alphabet 
sections  to  fit  your  needs  also.  To  change  the  de- 
lay time  between  codes,  change  the  upper  limit 
in  line  480.  Instead  of  200,  put  your  own  num- 
ber; a  larger  number  will  be  a  longer  delay.  In- 
stead of  using  a  delay  between  numbers  and 
letters,  you  can  have  the  student  press  any  key 
to  continue,  or  press  the  appropriate  number  or 
letter.  You  can  change  the  following  lines: 

650  IF  K''iI+4B  THEN  610 

6S5  NEXT  1 

770  IF  K'::~I+5S  THEN  730 

775  NEXT  I 

The  program  is  flexible  enough  that  you  can 
change  it  to  do  exactly  what  you  want  it  to  do. 
You  can  even  change  the  graphics  and  make  it  a 
quiz  to  learn  Braille,  or  sign  language,  or  some 
other  type  of  code.  You  can  use  words  instead  of 
the  alphabet  and  make  a  quiz  for  reviewing  a 
foreign  language,  or  perhaps  vocabulary  words. 
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Structuring  Your  Programs 

A  couple  of  readers  have  suggested  that  I  include 
flowcharts  with  my  programs.  My  secret  is  that  I 
haven't  touched  a  flowchart  since  it  was  required 
in  my  college  FORTRAN  class  years  ago.  In  an- 
swer to  your  questions  of  how  I  plan  a  program, 
I  just  sit  down  at  the  computer  and  start  typing. 
With  this  program,  I  got  to  line  350  and  typed 

350  ON  K-4  8  GOTO  1000.2000.3000.400 
0, 500  0 

then  worked  on  a  section  at  a  time,  not  necessar- 
ily in  order.  The  Numbers  section  started  with 
line  1000,  Alphabet  with  line  2000,  Press  a  Key 
with  line  3000,  the  quiz  with  line  4000,  and  5000 
was  END. 

As  1  realized  I  needed  subroutines,  I  num- 
bered them  400,  600,  and  700,  making  sure  I 
didn't  get  to  line  1000.  On  the  TI  it  doesn't  really 
matter  where  you  put  the  subroutines;  you  can 
put  them  all  at  the  end  if  you  prefer.  Anyway, 
after  everything  was  running  properly  and  each 
section  was  tested,  I  used  the  RES  command  to 
get  all  the  line  numbers  to  look  nice.  Each  pro- 
grammer has  his  or  her  own  way  of  planning, 
and  there's  really  no  right  way  or  wrong  way.  I 
say  if  it  works,  you're  successful. 

If  you  wish  to  save  typing  effort,  you  may 
obtain  a  copy  of  Morse  Code  by  sending  $3,  a 
blank  cassette  or  disk,  and  a  stamped,  self- 
addressed  mailer  to: 

C.  Regena 
P.O.  Box  1502 
Cedar  CiYy,  UT  84720 

Be  sure  to  specify  the  title  and  that  you  need  the 
TI  version. 


Morse  Code 

100  CALL  CLEAR 

110  PRINT  TAB  <7)  :  •■****«»«««*«***" 

120  PRINT  TAB(7);"»  MORSE  CODE  *" 

130  PRINT  TAB  (7)  ;"*«**««**«»****":  : 

140  CALL  CHAR  (37,  ■■3C7EFFFFFFFFVE3C" 

> 

150  CALL  CHAR  <3B,  ■■00FFFFFFFFFFFF"  ) 
160  DIM  M«C3S),N(35) 
170  FOR  A=0  TO  35 

180  READ  M*(A) 

190  NEXT  A 

200  DATA  ?<?<?<&?..  7.!fS<S<S<,  •/."/.?.?*?<,  7-V. ■/.?<!<.  X7. 

7.XS< 

2  10     DATA  7.  y, '/, '/,  7. ,  S<  7,  V.  7. 7. .  !<  S<  7. 7. 7.  .  ?<  S^  1, 7. 7. ,  ?<  & 

&&7. 

220    DATA  '/.%< ,  %<y.7.y.  ,  S<7.St7.,  i,y.y. ,  7. ,  7.7.S<>: ,  Si& 

7. 

230     DATA  7.7.7,7.  ,  7.7. .  7.?<?cS. ,  ?<>:&  ,  7.S(7.7. ,  .?<?<,  & 

7. 

240     DATA  S<S<S<  ,  7.?(?<7.  .  .???(7.!(  .  7.&7.  ,  7.7.7.  ,  ?<  ,  7.7. 

?< 

250     DATA  7.7.7.S< ,  7.S,?<  ,  &7.7.S<  ,  ir/.tiZt ,  %fZ^y.y. 


260  PRINT  "CHOOSE: 


270  PRINT 

280  PRINT 

290  PRINT 

300  PRINT 

310  PRINT 


:  TAB  <5)  : 

: TAB  <5)  ; 

: TAB  <5)  ; 

: TAB  <5)  ; 

:  TAB  <S)  ; 


NUMBERS" 

ALPHABET" 

PRESS  A  KEY' 

QUI  Z  " 

END  PROGRAM" 


320 
330 
340 
350 

360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

480 
490 

500 
510 
520 
5  30 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 

690 
700 
710 
720 
730 
740 
750 
760 
770 
7S0 
790 
800 

810 

820 

830 

840 
850 
860 
870 
880 


CALL  KEY(0.K.S) 

IF  (K<49) + ( K >53) THEN  320 

CALL  CLEAR 

ON  K-4S  GOTO  560,680,800,970,15 

00 

FOR  J= 1  TO  LEN ( M*  < I  )  ) 

A$=SEG* (M* ( I ) , J , 1 ) 

IF  At="7."  THEN  420 

CALL  BOUND <300, 131 , 0) 

PRINT      "?<?<?<     "; 

GOTO  440 

CALL  SOUND (60. 1 31 , 0) 

PRINT  "7.  "; 

CALL  SOUND ( 1 , 9999, 30) 

NEXT  J 

PRINT  :  : 

RETURN 


TO 


?00 


*«  NUMBERS  **' 


FOR  D= i 

NEXT  D 

RETURN 

PRINT  : "PRESS  <ENTER> 

CALL  KEY<0.K.5) 

IF  KOI  3  THEN  520 

CALL  CLEAR 

RETURN 

PRINT  TAB<7) 

FDR  1=0  TO  9 

PRINT  TAB(4) 

GQSUB  360 

GDSUB  480 

CALL  KEY  (0. K 

>13  THEN 

CLEAR 

260 

I 

10 


IF  K< 

CALL 

GOTO 

NEXT 

G05UB 


I 


S) 
6: 


0 


GOTO  : 
PRINT 


60 

TAB (6) : 


**  ALPHABET  *«' 


FOR  1=10  TO  35 

PRINT  TAB  (4)  ; CNR* (55+1  )  ;  "    " ; 

GQSUB  360 

GOSUB  480 

CALL  KEY<0,K,S) 

IF  K<>13  THEN  770 

CALL  CLEAR 

GOTO  260 

NEXT  I 

GDSUB  510 

GOTO  260 

PRINT  "PRESS  A  LETTER  OR  A  NUMB 

ER.  " 

PRINT  :"ITS  CODE  WILL  BE  GIVEN. 

PRINT  ; "TO  GET  BACK  TO  THE  MAIN 

PRINT  :"MENU  SCREEN,   PRESS  <ENT 

ER> .  "  :  :  : 

CALL  KEY(0,K,S) 

IF  K<>13  THEN  880 

CALL  CLEAR 

GOTO  260 

IF  K<48  THEN  84  0 


890  IF  K>57  THEN  920 
900  I=K-4a 

910  GOTO  940 

920  IF   CK<65>  -f- (K>90)  THEN  84  0 

930  I=K-55 

940  PRINT  CHR*<K>:"    "; 

950  GOSUB  360 

960  GOTO  840 

970  PRINT  "**  MORSE  CODE  QUIZ   **" 

980  PRINT  ::"YOU  WILL  HEAR  AND  SEE 

A" 
990  PRINT  : "MORSE  CODE  FOR  ONE  OF  T 

HE" 
1000  PRINT  : "LETTERS  OR  NUMBERS." 
1010  PRINT  :"TYPE  THE  TRANSLATION." 
1020  PRINT  : "PRESS  <ENTER>  TO  END  T 

HE" 
1030  PRINT   :"DUIZ  AND  RETURN  TO  THE 


10  4  0 
105  0 
1060 
1070 
1080 
1090 

1  100 
1110 
1  120 
1  130 
1  1  40 
1  150 
1  1  60 
1  170 
1  180 
1190 
1  200 
12  10 
1220 
1230 
1240 
1250 
1260 
1270 
1  280 
1  290 
1300 
1310 
1320 
1  330 
1340 
1350 
1  360 
1370 
1  380 
1390 
1400 
14  10 
14  20 

1  4  30 

1440 
1450 
1460 

14  70 
1480 
1490 
1  50  0 


PRINT 

FOR  I 

N  <  I  >  = 

NEXT 

G  =  0 

PRINT 

T  .  "  :  : 

CALL 

IF  S  < 

RANDO 

FOR  Z 

I  =  INT 

IF  N  ( 

IF  I  > 

L=I+4 

GOTO 

L=I+S 

GOSUB 

G  =  G+1 

CALL 

IF  K< 

CALL 

GOTO 

IF  K< 

1  F  K  < 

IF   (K 

CALL 

IF  K  = 

CALL 

CALL 

BDSUB 

GOTO 

CALL 

CALL 

CALL 

CALL 

CALL 

N  <  I  )  = 

NEXT 

PRINT 

D" 

PRINT 


:  "MAI N 
=  0  TO  31 


MENU  SCREEN. 


"PRESS  < enter:;  to  star 


KEY  <0,  K, S) 

1  THEN  1100 

MI  ZE 

=0  TO  35 

<36«RND) 

I)=0  THEN  1140 

9  THEN  119  gl 

8 

1200 


360 


KE 

:;  1 

CL 
26 
48 
SB 
<  6 
HC 
L 

SO 
SO 
4 
12 
SO 
SO 
SO 
SO 
SO 
0 
I 


Y  (0 
3  T 
EAR 
0 
TH 
TH 
5)  + 
HAR 
THE 
UNO 
UND 
80 
0  0 
UND 
UND 
UND 
UND 
UND 


,  K,  S) 
HEN  i: 


^60 


EN  1220 
EN  1290 

<K>90) THEN 
(22. 28. K) 
N  1350 
(80, 330, 2) 
(80, 262, 2) 


rt  i-rf      -? 


1  220 


( 1 00, 262 
( 1 00, 330 
( 100, 392 
(200, 524 


2) 
2) 
2) 
2) 


( 1 , 9999. 30) 


"OUT  OF 


;6  NUMBERS  AN 


'LETTERS,   YOUR  NUMBER  OF 


PRINT  "GUESSES 
FOR  1=1  TO  25 
CALL  SQUND<-99, 
0,2) 
NEXT  I 
GOSUB  510 
GOTO  260 
END 


WAS" ; G: 


INT (400*RND) 
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64  EXPLORER 


Larry  Isaacs 


This  month  let's  discuss  a  few  more  things 
concerning  the  line-drawing  and  character- 
drawing  routines  presented  in  the  last  couple  of 
columns.  Some  of  you  may  have  noted  that  the 
character-drawing  routines  did  not  support  the 
multicolor  mode.  This  could  be  done  with  some 
additional  time  and  effort.  However,  because  of 
the  increased  complexities  of  handling  multicolor 
mode,  there  probably  won't  be  room  for  the 
routines  in  the  $C000  to  $C7FF  region  of  RAM 
where  the  other  routines  were  located. 

Multiuse  Vector  Bytes 

There  were  some  other  things  which  were  not 
implemented  as  well.  First,  vector  byte  strings 
were  provided  only  for  the  uppercase  character 
set.  The  remaining  characters  weren't  im- 
plemented due  to  the  space  they  would  require. 
You  could  implement  the  remaining  characters 
yourself,  or  even  create  an  entire  character  set  of 
your  own  design.  Also,  you  are  not  restricted  to 
drawing  characters.  The  vector  byte  strings  could 
be  used  to  draw  almost  any  design. 

If  you  have  studied  the  machine  language 
listing  for  the  character-drawing  routines,  you 
may  have  noticed  there  was  some  provision 
made  for  additional  special  function  vector  bytes. 
One  I  had  in  mind,  but  didn't  get  around  to  im- 
plementing, was  a  "clear  character  cell"  special 
function  code.  This  would  clear  a  character  cell 
of  a  specified  size.  The  function  would  be  useful 
if  you  wanted  to  draw  characters  on  top  of  some 
other  design.  Another  useful  function  would  be 
contour  fill  function — that  is,  fill  the  area  inside  a 
boundary.  With  this,  large  solid  characters  could 
be  made  much  more  easily.  Unfortunately,  I 
doubt  there  is  enough  room  in  the  code  to  have 
such  a  routine.  Perhaps  we  can  discuss  contour 
filling  in  a  future  article. 

As  you  might  guess,  there  are  lots  of  other 
things  which  could  be  implemented.  Unfortu- 
nately, there  isn't  enough  room  to  implement 
them  all.  This  is  where  the  machine  language 
source  code  listing  should  come  in  handy.  You 
can  combine  routines  from  various  sources  to 
construct  the  set  of  routines  you  require. 
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Easy  To  Understand 

I  hope  the  comments  provided  in  the  source  code 
are  sufficient  to  make  most  of  the  routines 
understandable.  The  thoroughness  of  the  com- 
ments is  not  consistent  throughout  the  source 
code.  The  variation  is  largely  due  to  an  effort  to 
keep  the  source  code  from  growing  too  large. 

Having  good  comments  in  a  program  can  be 
extremely  useful.  Unfortunately,  there  are  a 
couple  of  factors  which  tend  to  discourage 
commenting.  The  first  factor  is  that  it  makes  the 
source  code  longer.  With  the  speed  of  the  1541 
disk  drive,  the  extra  size  can  noticeably  affect  the 
length  of  time  it  takes  to  edit  or  assemble  the 
source  file.  The  second  factor  is  that  it  takes  extra 
time  to  write  the  comments.  Usually,  writing  the 
comments  will  be  less  interesting  than  writing 
the  program. 

However,  if  the  machine  language  you  plan 
to  write  will  be  of  some  importance,  I  highly 
recommend  thoroughly  commenting  the  program. 
You  can  use  comments  to  understand  how  the 
program  was  intended  to  work  after  you've 
forgotten.  You'd  be  surprised  how  fast  you  can 
forget. 

Comment  Fields 

There  are  two  basic  places  to  put  your  com- 
ments. One  is  to  the  side  of  the  machine  lan- 
guage instructions,  on  the  same  line  as  the 
instructions.  The  other  is  between  routines, 
where  the  comments  would  document  the  rou- 
tine which  follows.  It  is  here  that  the  extra  effort 
commenting  pays  off  the  best.  Ideally,  the  com- 
ments should  include  a  description  of  what  the 
routine  is  supposed  to  do,  plus  the  entry  and  exit 
conditions  that  apply.  This  would  allow  you  to 
use  the  routine,  once  it  is  written,  without  having 
to  study  the  routine  itself  to  determine  what  it 
does.  In  the  long  run,  such  comments  can  ac- 
tually save  a  lot  of  time.  Especially  if  someone 
else  has  to  make  use  of  your  source  code.  In  the 
source  code  I've  provided  so  far,  most  of  the  time 
I've  included  the  entry  and  exit  conditions,  but 
have  omitted  the  description  to  conserve  space. 


Program  2  and  Program  3  which  follow  are 
continuations  of  last  month's  column  on  drawing 
characters  to  the  bitmap,  They  facilitate  the 
drawing  of  letters  to  a  hi-res  screen. 

Refer  to  the  "Automatic  Proofreader"  article  before  typing 
these  programs  In. 

Program  2: 

Data  For  Character  Routines 

1  READ  LN,SA,EAiLN=LN+30  : rem  146 

10  FOR  1=0  TO  EA-SA.  !rem  232 

20  READ  BY J  POKE  SA+I, BY: SUM=SUM+BY 

:rem  120 
30  IF  INT< (I+1)/8)*8<>{I+1)  THEN  60 

:rem  242 
40  READ  CS:IF  CSOSUM  THEN  90  :rem  124 
50  SUM=0;LN=LK+10  srem  2  54 

60  NEXT  trem  165 

70  IF  INT{I/8)*8<>I  THEN  READ  CS:IP  CS<>S 
UM  THEN  90  :rem  78 

80  PRINT  "SUCCESSFUL  LOAD": END  : rem  106 
90  PRINT  "ERROR  IN  LINE" ; LNs END  : rem  105 
500  DATA  500  :rem  68 

510  DATA  50176  :rem  179 

520  DATA  51090  : rem  176 

530  DATA  76,220,197,76,230,197,76,99,1171 

:  rem  0 
540  DATA  199,76,109,199,76,138,199,76,107 

2  :rem  67 

550  DATA  24,196,76,24,196,76,24,196,812 

:rem  155 
560  DATA  96,0,208,0,0,0,0,0,304  srem  213 
570  DATA  0,0,0,0,0,0,0,0,0  :rem  198 
580  DATA  0,0,0,0,0,0,0,0,0  : rem  199 
590  DATA  0,0,0,0,0,0,0,32,32  :rem  50 
600  DATA  253,174,32,138,173,32,247,183,12 

32  srem  72 

610  DATA  165,101,164,100,96,32,253,174,10 

85  :rem  67 

620  DATA  32,158,173,36,13,48,3,76,539 

:rem  42 

630  DATA  240,192,160,0,177,100,141,30,104 

0  :rem  250 

640  DATA  196,200,177,100,133,20,200,177,1 

203  :rem  102 

650  DATA  100,133,21,76,163,182,72,162,909 

:rem  230 
660  DATA  0,201,32,144,5,233,32,232,879 

:rem  72 
670  DATA  208,247,104,24,125,121,196,170,1 

195  srem  125 

680  DATA  96,128,0,192,224,192,192,128,115 

2  srem  34 

690  DATA  128,133,253,173,14,220,41,254,12 

16  srem  67 

700  DATA  141,14,220,165,1,41,251,133,966 

srem  166 
710  DATA  1,169,0,6,253,42,6,253,730 

srem  179 
720  DATA  42,6,253,42,133,254,24,173,927 

srem  132 
730  DATA  25,196,101,253,133,253,173,26,11 

60  srem  67 

740  DATA  196,101,254,133,254,162,0,160,12 

50  srem  61 

750  DATA  7,177,253,153,32,196,138,153,110 

9  srem  36 


760  DATA  41,196,136,16,244,165,1,9,808 

srem  93 
770  DATA  4,133,1,173,14,220,9,1,555 

srem  177 
780  DATA  141,14,220,96,160,7,162,7,807 

srem  84 
790  DATA  30,41,196,106,202,16,249,153,993 

srem  241 
800  DATA  32,196,136,16,241,96,169,7,893 

srem  153 
810  DATA  133,251,162,0,160,7,30,41,784 

srem  68 

820  DATA  196,106,136,16,249,164,251,153,1 

271  srem  130 

830  DATA  32,196,232,198,251,16,237,96,125 

8  srem  45 

840  DATA  160,7,162,7,94,41,196,42,709 

srem  44 

850  DATA  202,16,249,153,32,196,136,16,100 
0  srem  17 

860  DATA  241,96,172,29,196,208,1,96,1039 

srem  202 
870  DATA  162,7,189,32,196,157,41,196,980 

srem  211 
880  DATA  202,16,247,136,208,3,76,204,1092 

srem  232 
890  DATA  196,136,208,3,76,222,196,76,1113 

srem  248 
900  DATA  248,196,160,8,169,0,153,41,975 

srem  147 

910  DATA  196,136,16,250,169,255,141,40,12 

03  srem  72 

920  DATA  196,138,240,15,168,162,8,94,1021 

srem  238 

930  DATA  32,196,126,41,196,202,16,247,105 

6  srem  29 

940  DATA  136,208,242,96,32,97,192,173,117 

6  srem  45 

950  DATA  32,192,41,7,133,253,162,0,820 

srem  73 
960  DATA  160,0,177,251,45,49,196,29,907 

srem  152 
970  DATA  32,196,145,251,160,8,177,251,122 
0  :rem  28 

980  DATA  45,40,196,29,41,196,145,251,943 

srem  202 
990  DATA  232,224,8,240,31,198,253,48,1234 

srem  239 

1000  DATA  8,230,251,208,219,230,252,208,1 

606  srem  107 

1010  DATA  215,169,7,133,253,24,165,251,12 

17  srem  65 

1020  DATA  105,57,133,251,165,252,105,1,10 

69  srem  58 

1030  DATA  133,252,208,196,76,114,192,140, 

1311  srem  162 

1040  DATA  31,196,32,102,196,32,129,196,91 

4  srem  26 

1050  DATA  32,10,197,32,171,193,32,42,709 

srem  173 
1060  DATA  197,32,76,197,24,169,8,160,863 

srem  203 
1070  DATA  0,174,29,196,240,12,202,240,109 

3  s  rem  9 
1080  DATA  25,169,248,160,255,202,240,2,13 

01  srem  60 

1090  DATA  208,16,109,30,192,141,30,192,91 

8  srem  21 

1100  DATA  152,109,31,192,141,31,192,76,92 

4  srem   16 
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1110  DATA  216,197,109,32,192,141,32,192,1 

111  :rem  109 

1120  DATA  172,31,196,96,32,55,196,141,919 

I  rem  243 

1130  DATA  25,196,140,26,196,96,32,69,780 

:rem  197 
1140  DATA  196,36,13,48,3,76,151,197,720 

:rem  138 
1150  DATA  173,30,196,240,13,160,0,177,989 

:rem  233 
1160  DATA  20,32,151,197,200,204,30,196,10 

30  :rem  48 
1170  DATA  144,245,96,41,127,10,168,173,10 

04  :rem  69 
1180  DATA  27,196,133,251,173,28,196,133,1 

137  :rem  132 

1190  DATA  252,177,251,141,50,196,200,177, 

1444  :rem  174 

1200  DATA  251,141,51,196,96,173,50,196,11 

54  :rem  75 

1210  DATA  133,251,173,51,196,133,252,160, 

1349  :retn  166 

1220  DATA  0,177,251,72,238,50,196,208,119 

2  :rem  24 

1230  DATA  3,238,51,196,104,201,143,240,11 

76  :rem  59 

1240  DATA  1,24,96,72,41,15,201,8,458 

; rem  231 
1250  DATA  144,2,9,240,141,54,196,169,955 

; rem  190 
1260  DATA  0,141,53,196,104,74,74,74,716 

:rem  133 
1270  DATA  74,201,8,144,7,9,240,162,845 

:rem  83 
1280  DATA  255,142,53,196,141,52,196,96,11 

31  :rera  82 
1290  DATA  56,169,0,237,52,196,141,52,903 

:rem  189 
1300  DATA  196,169,0,237,53,196,141,53,104 

5  :rein  26 
1310  DATA  196,96,56,169,0,237,54,196,1004 

: rem  243 
1320  DATA  141,54,196,96,169,0,141,53,850 

:rem  185 
1330  DATA  196,173,52,196,174,54,196,141,1 
182  srera  138 

1340  DATA  54,196,142,52,196,16,5,169,830 

jrein  192 
1350  DATA  255,141,53,196,96,174,29,196,11 
40  :rem  89 

1360  DATA  208,1,96,202,208,6,32,124,877 

;rera  132 
1370  DATA  198,76,96,198,202,208,6,32,1016 

:rem  246 

1380  DATA  96,198,76,114,198,32,124,198,10 

36  :rem  100 

1390  DATA  76,114,198,32,149,198,24,173,96 

4  ; rem  5  3 

1400  DATA  32,192,109,54,196,141,36,192,95 

2  :rem  30 

1410  DATA  24,173,30,192,109,52,196,141,91 

7  :rem  24 

1420  DATA  34,192,173,31,192,109,53,196,98 

0  :rem  34 

1430  DATA  141,35,192,96,169,0,141,53,827 

;rem  185 
1440  DATA  196,32,29,198,141,52,196,201,10 
45  :rem  79 

1450  DATA  0,16,5,169,255,141,53,196,835 

srem  138 


32,29,198,141,54,196,76,179,905 

:  rem  2 
198,140,31,196,32,3,198,32,830 

;rem  187 
29,198,176,99,32,59,198,201,992 

:rem  16 
248,240,9,32,179,198,32,195,113 

: rem  41 
194,76,247,198,174,54,196,208,1 

:rem  152 
15,32,29,198,32,59,198,32,595 

:rem  150 
179,198,32,159,193,76,247,198,1 

:rem  159 
202,208,9,32,212,198,32,195,108 

srem  27 
194,76,247,198,202,208,9,32,116 

:rem  40 
212,198,32,159,193,76,247,198,1 

:rem  147 
202,208,6,32,24,196,76,247,991 

;rem  194 
198,202,208,6,32,24,196,76,942 

:rem  196 
247,198,202,208,6,32,24,196,111 

: rem  28 
76,247,198,202,208,6,32,24,993 

;rem  201 
196,76,247,198,76,247,198,172,1 

:rem  153 
31,196,96,32,55,196,141,27,774 

:rem  197 
196,140,28,196,96,32,69,196,953 

:  rem  6 
36,13,48,3,76,241,198,173,788 

:rem  152 
30,196,240,13,160,0,177,20,836 

:rem  171 
32, 241, 198, 200, 204, 30, 196, 144, 1 

:rem  116 
245,96,32,234,192,41,3,141,984 

:rem  190 
29,196,96,321  : rem  124 


Program  3: 

Illustration  Of  Character  Routines 

10  REM  DRAW  CHARACTERS  IN  BIT-MAP: rem  212 
20  POKE  56,156:CLR  i rem  223 

30  CT=PEEK{56}*256+PEEK(55):REM  CHAR  DATA 
PTR  :rem  54 

40  J1=49152:REM  DRAWING  JUMP  TABLE 

; rem  239 
50  J2=50176:REM  CHAR,  JUMP  TABLE  : rem  47 
60  GOTO  1000  :rem  96 

1000  REM  MAIN  ROUTINE  :rem  240 

1010  GOSUB  10000; SYS  J2+6,CT  srem  12 
1020  SYS  J1:SYS  J1+6,0:SYS  Jl+9,6,14 

:rem  185 
1030  SYS  Jl+12,10,ia0:REH  MOVE  : rem  115 
1040  SYS  J2+3, "EXAMPLE  USE  OF  PUT  " 

: rem  149 
1050  SYS  J2+3, "CHARACTER  ROUTINE." 

;rem  240 
1060  SYS  Jl+12, 10,160:REM  MOVE  :rem  116 
1070  FOR  CH=32  TO  63  : rem  232 

1080  SYS  J2+3,CH:NEXT  : rem  210 

1090  SYS  Jl+12, 257, 140  ; rem  93 


1460 

DATA 

1470 

DATA 

1480 

DATA 

1490 

DATA 

3 

1500 

DATA 

347 

1510 

DATA 

1520 

DATA 

282 

1530 

DATA 

8 

1540 

DATA 

6 

1550 

DATA 

315 

1560 

DATA 

1570 

DATA 

1580 

DATA 

3 

1590 

DATA 

1600 

DATA 

410 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

245 

1660 

DATA 

1670 

DATA 
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1100  SYS  J2+I2,2:REM  ROTATE  180  DEC. 

:rem  173 
1110  FOR  CH=64  TO  95  :rem  237 

1120  SYS  J2+3,CH:NEXT  : rem  205 

1130  SYS  J2+12,0:REM  NO  ROTATION  : rem  85 
2000  SYS  Jl+12, I0,80:REM  MOVE  : rem  64 
2010  SYS  J2+9, "EXAMPLE  USE  OF  DRAW  " 

:rem  206 
2020  SYS  J2+9, "CHARACTER  ROUTINE" : rem  198 
2030  SYS  Jl+12, 10, 60: REM  MOVE  :rem  65 
2040  FOR  CH=64  TO  90  :rem  235 

2050  SYS  J2+9,CH:NEXT  : rem  214 

2060  SYS  Jl+12, 217, 40:REM  MOVE  : rem  123 
2070  SYS  J2+12,2:REM  ROTATE  180  DEC. 

:rem  180 
2080  FOR  CH=90  TO  64  STEP  -1  : rem  137 
2090  SYS  J2+9,CH;NEXT  : rem  218 

2100  SYS  J2+i2,0:REM  NO  ROTATION  : rem  83 
9000  GET  Z$:IF  Z$=""  THEN  9000  :rem  231 
9010  SYS  Jl+3  :rem  162 

9020  END  :rem  162 

10000  REM  LOAD  CHAR.  VB  DATA  : rem  243 
10010  C=0:PT=CT+256!REM  INIT  POINTER 

:rem  143 
10020  READ  CH:IF  CH<0  THEN  RETURN:rem  105 
10030  HB=IKfT(PT/256):LB=PT-HB*256:rem  142 
10040  POKE  CT+CH*2,LB:POKE  CT+CH*2+1,HB 

;rem  171 
10050  GOSUB  10100: REM  LOAD  VB  DATA: rem  88 
10060  GOTO  10020  :rem  35 

10100  REM  LOAD  CHAR.  DATA  AT  PT  : rem  149 
10110  READ  VB  :rem  167 


yblADREVA  64 

Your  personal  professional  address-filB-system.  Up  to  620 
addresses  per  disc  in  direct  access.  Including  5  extra  lines  for 

individual  text/record.  Totally  menue'drivon.^^^^^^^ 

Powerlul  editing  and  back-up  lacitities,     ^qt^lVS^^j 

Several  hardcopy  features.  ^^^^^^^^ 

—  PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 


Here  comes  the  new  generation  of  SM's 


program  series  for  the  64. 


SM  SOFTWARE  INC.    252  Bethlehem  Pike    Colmar.  PA  18915 


Here  comes  the  new  generation  of  SM's 


1 


program  series  for  the  64. 


'yiUKIT64 

The  famous  programming  tool  with  powerful  basic  extentions 

like  merge,  find,  renumber,  dump,  trace,  enhanced 

floppy-imonitor  (disc-doctor)  and  high  efficient  machine-language 

monitor  with  built-in  assembler,  diassembler,  trace  and  lots 

of  more  helpful  features-really  a  golden  tooll 


PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 


Srwi  SOFTWARE  INC.    25Z  Bethlehem  Pike    Colmar.  PA  1891E 


10120  IF  C>0  THEN  C=C-1:G0T0  10180 

:rem  241 
10130  IF  ABS(VB)>7  THEN  10160  :rem  223 
10140  READ  DY:VB=(VB*16+(DYAND15)) 

;rera  138 
10150  GOTO  10180  :rem  42 

10160  IF  VB=143  THEN  10190         srem  30 
10170  IF  VB0128  THEN  C=2  :  rem  22 

10180  POKE  PT,VBAND255:PT=PT+1:G0T0  10110 

srem  129 
10190  POKE  PT,VBAND255:PT=PT+1: RETURN 

:rem  54 

11100  REM  ADD  CHARACTER  DATA  FROM  PROGRAM 
1  IN  LAST  MONTH'S  ISSUE     :rera  24 


To  receive  additional 

information  from  advertisers 

in  this  issue,  use  the  handy 

reader  service  cards  in  the 

back  of  the  magazine. 
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SYSound 


Mike  Steed 


The  Commodore  64  has  an  amazing  sound  chip,  and 
anyone  who  has  heard  it  knows  this.  However,  any- 
one who  has  tried  to  program  it  may  have  been  sur- 
prised or  discouraged,  because  everything  had  to  be 
done  with  POKEs.  That  is,  until  now.  "SYSound" 
will  make  creating  sounds  much  easier,  using  abso- 
lutely no  POKEs  at  all.  Also  included  is  an  example 
program  to  show  how  easy  programming  64  music 
can  be. 


Type  in  Program  1  and  be  sure  to  save  a  copy 
before  running  it.  Program  1  loads  in  SYSound, 
which  is  a  machine  language  program,  and  one 
typing  mistake  can  crash  SYSound  when  you  use 
it.  You  may  wish  to  save  a  copy  of  just  the  ma- 
chine language  once  it's  loaded,  if  you  have  a 
machine  language  monitor.  Program  1  will  specify 
the  start  and  end  addresses. 

To  use  SYSound,  all  you  need  to  do  is  type 
SYS  49152  followed  by  any  of  several  possible 
parameters,  each  separated  by  a  comma.  The 


The  ADSR  Envelope 


Attack    Dec^       Sustain 


Time 
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number  49152  could  (and  probably  should)  be 
put  into  a  variable,  such  as  S  or  SOUND. 

A  list  of  possible  parameters  for  the  SYS 
statement  and  their  meanings  follows: 

•  Yx,  where  x  is  the  voice  number  used  for 
the  note  {one,  two,  or  three).  More  than  one 
voice  may  be  used  at  the  same  time. 

•  Ax,  where  x  is  the  attack  rate  of  the  note. 
This  is  the  time  it  takes  the  sound  to  reach  its 
highest  volume.  The  value  of  x  must  be  between 
0  and  15;  the  larger  the  number,  the  more  time  it 
takes.  (See  the  figure  for  a  further  description  of 
attack,  decay,  sustain,  and  release.) 

•  Da-,  where  x  is  the  decay  rate  of  the  note 
(0-15).  This  is  the  time  it  takes  the  sound  to 
soften  to  the  sustain  volume, 

•  Sx,  where  x  is  the  sustain  level  of  the  note 
(0-15).  The  sound  remains  at  this  volume  until 
the  release  starts. 

•  Rj,  where  x  is  the  release  rate  of  the  note 
(0-15).  The  release  rate  is  the  time  it  takes  the 
sound  to  drop  from  the  sustain  volume  to  silence. 

•  Wy[.t],  where  y  is  a  letter  representing  the 
waveform  used  for  the  sound.  This  can  be  N 
(noise),  S  (sawtooth),  T  (triangle),  or  P  (pulse).  If 
the  pulse  waveform  is  chosen,  then  a  pulse  rate  x 
(0-4095)  must  be  entered  after  the  waveform  let- 
ter, such  as  WP2048  for  a  square  wave. 

•  ¥x,  where  x  is  the  frequency  of  the  note 
(0-65535).  Higher  frequencies  will  produce 
higher  notes. 

•  Lt,  where  x  is  the  volume  (loudness)  of  the 
note  (0-15).  Note  that  this  is  the  overall  volume, 
so  all  the  voices  will  be  affected  by  this  setting. 

•  C  clears  the  sound  chip.  This  is  equivalent 
to  the  following  in  BASIC: 

10  S  =  54272:FOR  1  =  0  TO  24:POKE  S-HI,0:NEXT 
Once  a  parameter  has  been  entered,  it  need 


not  be  entered  the  next  time  the  routine  is  used. 
For  example,  if  all  your  sound  effects  are  going 
to  be  done  with  voice  1,  at  volume  15,  with  the 
sawtooth  waveform,  attack  0,  decay  9,  and  sus- 
tain and  release  0,  you  could  set  all  these  at  the 
beginning  of  your  progrnrn; 

10  S  =  49152:SYS  S,C,V1,L15,WS,D9 

(All  parameters  default  to  zero  initially,  so  A,  S, 
and  R  needn't  be  entered.)  Then  all  that  would 
need  to  be  done  to  play  a  note  would  be: 

20  SYS  S,F5000 

(Any  valid  numeric  expression  may  be  used  after 
the  parameter  letter.)  Also,  if  a  parameter  is  en- 
tered more  than  once,  only  the  last  case  will  be 
considered.  For  example,  SYS  S,WS,WT,A0,A6  is 
effectively  the  same  as  SYS  S,WT,A6. 

Program  2  provides  an  example  of  SYSound 
in  action,  and  shows  how  much  simpler  music 
programming  can  be  accomplished. 

If  you  would  rather  not  type  all  those  DATA 
statements,  I  will  send  you  a  copy  of  the  pro- 
gram. Send  a  stamped,  self-addressed  mailer,  a 
blank  tape  or  disk  (1540/1541),  and  $3  to: 

Mike  Steed 
712  W.  1280  S. 
Provo,  UT  84601 


Program  1 :  SYSound 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 

32,121,0,208,3,76  : rem  234 

241,192,201,44,240,3  :  rem  127 

76,67,193,32,115,0  : rem  44 

162,8,221,76,193,240  : rem  144 

6,202,16,248,76,67  : rem  52 

193,138,10,170,189,85  : rem  205 

193,133,251,189,86,193  : rem  6 

133,252,32,50,192,76  : rem  145 

0,192,108,251,0,32  : rem  33 

55,193,201,1,144,4  : rem  40 

201,4,144,3,76,72  :rem  241 

193,202,142,114,193,96  : rem  243 

32,55,193,10,10,10  : rem  25 

10.141.123.193.173.120  : rem  227 
193,41,15,13,123,193  :ren>139 
141,120,193,96,32,55  : rem  145 
193,141,123,193,173,120  : rem  34 
193,41,240,13,123,193  : rem  190 
141,120,193,96,32,55  : rem  148 
193,10,10,10,10,141  srem  72 
123,193,173,121,193,41  :rem237 
15,13,123,193,141,121  : rem  177 
193,96,32,55,193,141  : rem  153 
123,193,173,121,193,41  i rem  240 

240.13.123.193.141.121  : rem  228 
193,96,32,115,0,162  :rem  95 
3,221,103,193,240,6  ; rem  84 
202,16,248,76,67,193  : rem  160 
224,1,240,6,32,115  : rem  34 
0,76,196,192,32,44  : rem  56 
193,192,16,144,3,76  : rem  99 


100 

DATA 

110 

DATA 

120 

DATA 

130 

DATA 

140 

DATA 

150 

DATA 

160 

DATA 

170 

DATA 

180 

DATA 

190 

DATA 

200 

DATA 

210 

DATA 

220 

DATA 

230 

DATA 

240 

DATA 

250 

DATA 

260 

DATA 

270 

DATA 

280 

DATA 

290 

DATA 

300 

DATA 

310 

DATA 

320 

DATA 

330 

DATA 

340 

DATA 

350 

DATA 

360 

DATA 

370 

DATA 

380 

DATA 

390 

DATA 

400 

DATA 

410  DATA  72,193,142,117,193,140  : rem  243 
420  DATA  118,193,162,1,189,107  : rem  199 
430  DATA  193,141,119,193,96,32  : rem  204 
440  DATA  44,193,142,115,193,140  :rem  243 
450  DATA  116,193,96,32,55,193  : rem  159 
460  DATA  141,122,193,96,169,0  : rem  151 
470  DATA  162,24,157,0,212,202  : rem  134 
480  DATA  16,250,169,0,141,115  : rem  141 
490  DATA  193,141,116,193,76,115  : rem  255 
500  DATA  0,173,115,193,208,5  : rem  89 
510  DATA  173,116,193,240,37,174  :rem  248 
520  DATA  114,193,189,111,193,133  : rem  41 
530  DATA  251,169,212,133,252,160  : rem  34 
540  DATA  6,185,115,193,145,251  : rem  201 
550  DATA  136,16,248,160,4,173  : rem  149 
560  DATA  119,193,9,1,145,251  : rem  101 
570  DATA  173,122,193,141,24,212  ; rem  240 
580  DATA  96,165,122,208,2,198  : rem  161 
590  DATA  123,198,122,76,121,0  : rem  146 
600  DATA  32,166,173,32,247,183  : rem  199 
610  DATA  166,20,164,21,96,32  ! rem  94 
620  DATA  44,193,152,208,11,224  : rem  191 
630  DATA  16,176,7,138,96,162  : rem  111 
640  DATA  11,76,58,164,162,14  : rem  101 
650  DATA  208,249,86,65,68,83  : rem  124 
660  DATA  82,87,70,76,67,53  : rem  20 
670  DATA  192,72,192,94,192,112  : rem  209 
680  DATA  192,134,192,152,192,203  : rem  45 
690  DATA  192,213,192,220,192,78  : rem  2 
700  DATA  80,83,84,128,64,32  ; rem  54 
710  DATA  16,0,7,14,0,0  : rem  33 

720  DATA  0,0,0,0,0,0  :rem  175 

7  30  DATA  0,0  :rem  64 

740  FORI=49152T049531:READJ:POKEI,J:K=K+J 

:NEXT  :rem  121 

750  IFK<>-44621THENPRINT"ERROR  IN  DATA  STA 

TEMENTS" :STOP  : rem  180 

760  PRINT"{CLR} {3  DOWN} SYS  SOUND { DOWN] 

£9  LEFT3i9  Tg";Q$=CHR5(34)  : rem  178 
770  PRINT"TO  SAVE  IN  MONITOR: ": PRINT" 

[D0WN}.S  "Q$"SYS  SOUND"Q$",01,C000,C1 

7C  : rem  85 

780  PRINTSPC ( 15 ) " t  T " : PRINTSPC ( 1 5 ) "  { DOWN  3  0 

1  FOR  TAPE, ": PRINTSPC (15) "08  FOR  DISK 

;rem  32 

Program  2:  sample  Program  Using  SYSound 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in, 

120  S=49152:SYS  S,C, L15 :T=TIME  : rem  251 
130  READ  D:IF  D=0  THEN  SYS  S,C:END 

:rem  111 
140  READ  Fl,F2,F3  : rem  113 

150  SYS  S,V1,F(F1),WT,A0,D9,S0,  R0:rem  79 
160  SYS  S,V2,F(F2),WS,A2,D4,S2,  R2 : rem  82 
170  SYS  S,V3,F(F3),WT,A1,D2,S10,R10 

: rem  177 
180  T=T+10*D 
190  IF  T>TIME  GOTO  190 
200  GOTO  130 
300  DATA  1,13153,0,0 
310  DATA  1,11060,0,0 
320  DATA  2,8779,5530,2195 
330  DATA  2,8779,6577,0 
340  DATA  1,8779,4389,1644 
350  DATA  1,9854,0,0 
360  DATA  1,11060,6577,0 
370  DATA  1,11718,0,0 
400  DATA  2,13153,5530,2195 
410  DATA  2,13153,6577,0 


: rem  120 
: rem  189 

! rem  95 
:rem  191 
I  rem  187 
:rem  226 

;rem  78 
irem  236 
; rem  161 
; rem  105 
: rem  203 
: rem  255 
:rem  107 
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420 

DATA 

2 

,13153,4389,2463 

I  rem  10 

430 

DATA 

2 

,11060,6577,2765 

:rem  12 

440 

DATA 

2 

,14764,5859,2930 

:rem  23 

450 

DATA 

2 

,14764,8779,0 

:reni  126 

460 

DATA 

2 

,14764,7382,2195 

; rem  21 

470 

DATA 

1 

,0,8779,0 

:reni  169 

480 

DATA 

1 

,13153,0,0 

;rem  200 

500 

DATA 

2 

,14764,5859,2930 

:rem  20 

510 

DATA 

1 

0,8779,0 

: rem  164 

520 

DATA 

1 

13153,0,0 

:rem  195 

530 

DATA 

1 

14764,7382,2765 

iTem   21 

540 

DATA 

1 

16572.0,0 

irem  205 

550 

DATA 

1 

17557,8779,2463 

:rem  32 

560 

DATA 

1 

19708,0,0 

:rem  211 

600 

DATA 

2 

22121,5530,2195 

srem  252 

610 

DATA 

2 

0,6577,0 

:rem  160 

620 

DATA 

2 

0,4389,1644 

srem  63 

630 

DATA 

1 

17557,6577,0 

srem  122 

640 

DATA 

1 

13153,0,0 

srem  198 

650 

DATA 

2 

17557,5530,2195 

srem  18 

660 

DATA 

2 

0,6577,0 

;rem  165 

670 

DATA 

2 

0,4389,2071 

:rem  63 

680 

DATA 

1 

13153,6577,1845 

:rem  21 

690 

DATA 

1 

11060,0,0 

trem  198 

700 

DATA 

2 

13153,5859,1644 

: rem  14 

710 

DATA 

2 

0,6577,0 

:rem  161 

720 

DATA 

2 

0,4927,2463 

trem  62 

730 

DATA 

1 

9854,6577,0 

! rem  76 

740 

DATA 

1- 

11108,0,0 

;rem  197 

750 

DATA 

2 

8779,5530,2195 

:rem  233 

760 

DATA 

2, 

0,6577,1644 

trem  69 

770 

DATA 

2, 

0,5530,1097 

: rem  60 

780 

DATA 

2, 

0,0,0 

;rem  255 

790 

DATA 

0 

I  rem  234  t 

COMMODORE  64 
HACKERS  ONLY 

«BOOKWARE  FROM  ABACUS* 

t  Unravel  lie  mpteries  ol  Itie 
misundersl&od  floppy  disk 
300+  pafles  ot  in-depfli  infw- 
matior,  Sequerlial,  reialivfl 
random  li(es.  Many  uselul 
utilities-  t54t  ROM  listing 
fully  commenied.     J15.SS 

■  *•  A  machme  language 
reference  guide  speeitttaily  lo 
ttie  Commodore  M  All  in- 
stroclidns  luily  eipiarned 
Wiifi  itiese  mraplete  program 
listings  for  an  ASSEMBLER,, 
DISASSEMBLER  &65t0  Sim 
uialor  20O+  pages  $19.95 

'  300+  page  ijeiaifed  guide  to 
me  iniemals  ol  your  favorite 
computer  Covers  graphics, 
synthesiier.  kernal,  BASIC. 
Includes  full  commented 
ROfifl  itstings.  $19.95 

OTHER  TITLES  COMING  SOON! 

ASK  FOR  FREE  CATALOG 

FOR  QUICK  SERVICE 

PHONE  616-241-5510 


Abacus  IMMj  Software 


P.O.  Box  7Z11  Gf^nd  Rapids.  Ml  49510  Add  $2.00 
postage  and  ftandling.  Foreign  add  $4.00,  Michiflan 
residence  add  4%.  liflC.  VISA.  AM  EX  accepted. 


Musical  Tl  Keyboard 


Randol  J.  Peifsnider 


The  TI  music  chip  has  long  been  regarded  as  an  ex- 
cellent sound  chip,  but  few  programs  have  yet  dem- 
onstrated its  capabilities.  "Musical  Tl  Keyboard" 
changes  ail  that  by  turning  your  TVs  keys  into 
simulated  piano  keys. 


In  the  book  Beginner's  BASIC  that  comes  with  the 
TI-99/4A  computer,  there  is  a  short  demonstra- 
tion program  illustrating  how  you  can  use  the 
computer's  keyboard  to  make  musical  tones. 
When  you  run  this  program  and  press  the  A  key, 
the  musical  tone  A  will  sound.  The  tone  will 
continue  as  long  as  you  hold  down  the  key,  with 
a  slight  gap  of  silence  between  repetitions  of  the 
tone.  This  sounds  like  a  musical  machine  gun.  It 
is  an  interesting  program,  but  very  limited.  Since 
it  uses  only  seven  letters  of  the  alphabet  to 
represent  musical  notes,  you  could  play  only 
seven  notes  on  the  computer  in  this  fashion  (A 
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through  G,  with  no  sharps  or  flats). 

Also,  if  you  play  the  piano  and  are  familiar 
with  its  keyboard  arrangement,  you'll  find  that 
looking  for  letters  feels  unnatural  and  difficult. 
Hence,  "Musical  TI  Keyboard,"  which  makes  the 
computer's  keyboard  more  closely  resemble  that 
of  a  piano. 

This  program  first  READs  frequency  values 
from  DATA  statements  into  an  array,  then 
mathematically  converts  the  ASCII  code  returned 
by  the  CALL  KEY  statement,  and  uses  that  value 
in  the  CALL  SOUND  statement  to  locate  the 
corresponding  frequency  value  within  the  array. 
The  figure  shows  the  arrangement  of  the  key- 
board. Since  not  all  the  keys  are  used,  the  pro- 
gram includes  a  check  to  silence  any  unwanted 
keys.  ASCII  code  numbers  of  silenced  keys 
which  fall  within  the  array  are  assigned  a  DATA 
value  of  1  as  a  filler.  This  allows  the  array  to  be 
easily  filled  and  insures  that  the  ASCII  code  for  a 
given  key  corresponds  to  the  proper  frequency. 


C#   D# 


4 


F#   G#  A# 


8 


C#   D# 


+ 


B 


C#  D# 


H 


F#   G#  A# 


SHIFT 


B 


B 


ENTB? 


SHIFT 


AlPHA 
LOCK 


C7PL 


SPACEBAR 


FCTN 


Program  Variations 

One  variation  of  this  program  you  may  want  to 
try  would  be: 

90  CALL  SOUND  (100,NOTE(Q),1,1.26*NOTE(Q),5, 
1.5*NOTE(Q),5) 

This  would  produce  a  major  chord  for  each  key 
pressed.  To  create  minor  chords,  try: 

90  CALL  SOUND  (100,  NOTE(Q),l,1.19*NOTE(Q),5, 
1.5'NOTE(Q),5) 

If  you  change  the  duration  from  100  to  —150, 
the  computer  will  play  continuous  tones.  A  value 
for  a  noise  (  —  1  through  —8)  could  be  added  to 
the  CALL  SOUND  statement  for  an  interesting 
effect.  The  space  bar  could  be  assigned  a  noise 
value  for  use  as  percussion.  Since  this  program 
requires  that  the  ALPHA  LOCK  be  on,  additional 
tones  or  noises  could  be  assigned  to  what  would 
be  the  lowercase  letters. 

Even  though  we  do  have  a  piano,  our  four- 
year-old  daughter  would  rather  play  the  com- 
puter. However,  you  can  take  the  program 
further.  You  could  include  a  routine  within  the 
program  to  print  out  the  duration,  frequency,  and 
sequence  of  the  notes  you  play  on  the  computer's 
keyboard.  This  could  be  extremely  helpful  when 
tackling  the  laborious  task  of  transposing  sheet 
music  so  that  it  can  be  played  by  the  computer. 
You  could  also  try  creating  a  routine  that  would 
play  back  any  song  played  on  the  computer. 

To  make  playing  your  computer/piano  key- 
board easier,  you  might  want  to  buy  two  dif- 
ferent colors  of  small  gummed  labels,  like  those 
sold  in  office  supply  stores.  These  may  be  placed 
on  the  computer  keys  to  distinguish  the  white 
keys  from  the  black  keys.  Novice  musicians  may 


also  wish  to  write  the  name  of  the  note  on  the 
label  as  an  aid  to  playing.  These  labels  can  be 
easily  removed  when  you  are  ready  to  let  the 
computer  go  back  to  its  regular  keyboard 
functions. 

Musical  Tl  Keyboard 


iiii 

2  0 

3  0 

4  0 

5  0 

6  0 

7  0 


30 
9  0 
10 
1  1 


CA 

DI 

FO 

RE 

NE 

CA 

IF 

N  = 

72 

Q  = 

CA 

0  6 

0     D 

1 


120  D 
7 
9 


LL  CLEAR 

M  NOTE (47) 

R  C=l  TO  47 

AD  NOTE<C) 

XT  C 

LL  KEY(0,N.S) 

(N<44)  +  (N  =  45)  +  (N=49)  +  (N  =  52 
56)  +  (  (N; 57)  *  {N<66)  )  +  <N  =  68)  + 
)+CN>90)THEN  60 
N-43 

LL  SOUND C 100, NOTE ( Q) , 1 ) 
OTO  60 

ATA  220,1,247,698,622,1,277 
,  1  ,  370, 415, 466,  1  , 554,  1 ,  1 ,  1  , 
1, 1, 1, 165, 131, 1,330, 139, 
ATA  523,135,208,233,196, 
, 65  9, 2  62, 34  9, 1 17, 3  92, 4  94 
4,123,444,110 


156 
175 
,  14 


)  +  ( 
(N  = 


,  31 
1  .  1 
,  1 

,  58 

-7         O 
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CAPUTE! 

Modificotions  Or  Corrections  To  Previous  Articles 


64  Jackpot  \/ 

The  64  version  of  this  game  from  the  August 
issue  (Program  3,  p.  89)  requires  the  following 
two  lines,  which  were  accidentally  omitted  from 
the  original  listing: 

5  PRINT" fCLR}"; : POKE51 , 0: POKE55 , 0 :POKE52 , 

48:POKE56,48:CLR:GOSUB  60        : rem  61 

10  TT=50:S=54272 :FORL=STOS+24 :POKEL,0 :NEX 

T  :reni  135 

IBM  PC/PCjr  Blueberries 

The  IBM  version  (Program  3,  p.  88)  of  this  game 
in  the  July  issue  should  work  as  published,  but 
reader  Michael  Saletnik  points  out  that  the  pro- 
grammer used  the  VARPTR  statement  incorrectly 
in  line  5000.  VARPTR  returns  the  starting  ad- 
dress for  the  descriptor  of  the  specified  string 
variable.  The  descriptor  is  three  bytes  of  data;  the 
first  byte  tells  the  length  of  the  string,  and  the 
other  two  hold  the  starting  address  within  the 
current  segment  of  memory  where  the  characters 
that  make  up  the  string  are  stored.  Thus,  if  you 
use  a  statement  like  V=VARPTR(ML$),  then 
PRINT  PEEK(V)  will  show  the  length  of  ML$, 
and  PRINT  PEEK(V  +  l)  +  256*PEEK(V  +  2)  will 
give  the  starting  address  of  the  characters  in 
ML$. 

In  line  5000,  the  calculated  address  ZZ  does 
not  point  to  the  start  of  ML$  as  intended,  but 
rather  off  into  some  other  part  of  the  variable 
area.  "Blueberries"  works  as  printed  because  the 


programmer  uses  the  computed  address  to  POKE 
the  machine  language  directly  into  memory  in 
line  5010.  A  more  standard  way  of  transferring 
the  machine  language  from  DATA  statements 
into  ML$  would  have  been; 
READ  A:  ML$=ML$  +  CHR$tA) 

If  the  technique  used  in  line  5010  had  not  been 
used,  then  the  program  would  not  have  per- 
formed correctly.  To  place  the  machine  language 
data  properly  into  ML$,  line  5000  should  be 
changed  to  read; 

5000    DEF    SEG:ML$=SPACE${48) ;V=VARPTR(ML$) 
: ZZ=PEEK(V+1)+256*PEEK( V+2 ) 

Bunny  Hop  For  The  64  V^ 

Characters  were  omitted  in  two  lines  of  the  Com- 
modore 64  version  (Program  1,  p.  74)  of  this 
game  from  the  July  issue.  The  final  number  in 
line  35  should  be  208  instead  of  just  2,  and  the 
final  number  in  line  200  should  be  33  instead  of 
3.  The  corrected  lines  should  read  as  follows: 

35  DATA40, 169, 3 2, 145, 2 5 3, 96, 160, 41, 17 7, 25 

3,136,145,253,200,200,19  2,81,208 
200  ?'OKEP,32:POKE37154,12  7  :  Y=PEEK{  56  3  20  )  A 
NDPEEK { QQ ) : IF ( YAND8 ) =0THENP=P+1 : D=33 


VIC  Olympiad  i/ 


There  is  an  error  in  one  of  the  PRINT  statements 
which  defines  the  arena  in  the  VIC  version  (Pro- 
gram 2,  p.  56)  of  this  game  from  the  June  issue. 
Ed  Eyerman  notes  that  there  should  be  two 
spaces  following  the  five  SHIFTed  spaces  in  line 
3080.  The  line  should  read  as  follows: 

3080  PRINT"-! 2  SHI FT- SPACE} {5  SPACES lUgWl 
[2  SPACES  }EQ3_I{  5  shift-space} 
[2  SPACES}-"; 

Also,  line  1045  in  the  VIC  version  is  an  uninten- 
tional carryover  from  the  original  Commodore  64 
version,  and  can  be  deleted,  © 
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Tiny  MLX  KS^'RSg^"^ 

For  Unexpanded  VIC-20  Chanes  Brannon,  Program  Editor 


MIX  IS  a  labor-saving  utility  that  allows  almost  fail-safe 
entry  of  machine  language  programs  published  in  com- 
pute!. You  need  to  know  nothing  about  machine  lan- 
guage to  use  MLX — it  was  designed  for  everyone.  "Tiny 
MLX"  is  a  special  version  for  the  unexpanded  VIC. 

MLX  is  a  new  way  to  enter  long  machine  language 
(ML)  programs  with  a  minimum  of  fuss.  MLX  lets  you 
enter  the  numbers  from  a  special  list  that  looks  similar 
to  BASIC  DATA  statements,  it  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you  enter  illegal 
characters  when  you  should  be  typing  numbers.  It 
won't  let  you  enter  numbers  greater  than  255  (forbid- 
den in  ML).  It  won't  let  you  enter  the  wrong  numbers 
on  the  wrong  line.  In  addition,  MLX  creates  a  ready- 
to-use  tape  or  disk  file. 

Using  MLX 

Type  in  and  save  "Tiny  MLX"  (you'll  want  to  use  it  in 
tiie  future).  When  you're  ready  to  type  in  an  ML  pro- 
gram, run  Tiny  MLX.  Unlike  regular  MLX,  Tiny  MLX 
does  not  ask  for  the  starting  and  ending  address  of 
the  program  to  be  entered.  Instead,  this  information 
must  be  included  in  iine  210.  The  values  currently 
shown  in  line  210  are  for  the  "Lightsaver"  program  in 
this  issue. 

You'll  see  a  prompt  corresponding  to  the  starting 
address.  The  prompt  is  the  current  line  you  are  enter- 
ing from  the  listing.  It  increases  by  six  each  time  you 
enter  a  line.  That's  because  each  line  has  seven  num- 
bers— six  actual  data  numbers  plus  a  checksum  num- 
ber. The  checksum  verifies  that  you  typed  the 
previous  six  numbers  correctly.  If  you  enter  any  of  the 
six  numbers  wrong,  or  enter  the  checksum  wrong,  the 
computer  rings  a  buzzer  and  prompts  you  to  reenter 
the  line.  If  you  enter  it  correctly,  a  bell  tone  sounds 
and  you  continue  to  the  next  line. 

MLX  accepts  only  numbers  as  input.  If  you  make 
a  typing  error,  press  the  INST/DEL  key;  the  entire 
number  is  deleted.  You  can  press  it  as  many  times  as 
necessary  back  to  the  start  of  the  line.  If  you  enter 
three-digit  numbers  as  listed,  the  computer  automati- 
cally prints  the  comma  and  goes  on  to  accept  the  next 
number.  If  you  enter  less  than  three  digits,  you  can 
press  either  the  comma,  space  bar,  or  RETURN  key  to 
advance  to  the  next  number.  The  checksum  automati- 
cally appears  in  reverse  video  for  emphasis. 

MLX  Commands 

When  you  finish  typing  an  ML  listing,  you  can  then 
save  the  completed  program  on  tape  or  disk.  Follow 
the  screen  instructions.  If  you  get  any  errors  while 
saving,  you  probably  have  a  bad  disk,  or  the  disk  is 
full,  or  you  made  a  typo  when  entering  the  MLX  pro- 
gram itself. 


Since  Tiny  MLX  has  no  provisions  for  reloading  a 
partially  completed  program,  you  must  enter  the  ML 
program  all  in  one  sitting. 

Tiny  MLX 

100  POKE55,174!POKE56,23:CLR:POKE788,194  irem  76 
210  S=6063:E=7658  : rem  136 

300  PRINT"  [CLR)",-CHR$(  14 ):AD=S  :rem  56 

310  PRINTRIGHTS { "0000 "+MIDS ( STR5 ( AD) , 2 ) , 5 ) ; " : " ; : FO 

RJ=1T06  .-rem  234 

320  GOSUB570tIPN=-lTHENJ=J+NiGOTO320  :  reni  228 
480  IFN<0THENPR1NTjGOTO310  sretis  168 

490  A(J)=S:NEXTJ  irem  199 

500  CKSUM=AD-IMT(AD/2B6)*256;FORI=1T06jCKSUM=(CKSU 

M+A(I))AND255:NEXT  ! rem  200 

510  PRINTCHRS(18>; jGOSUB570iPRINTCHR5(28)  ! rem  234 
5X5  IFN=CKSUMTHEN530  ! rem  255 

520  PRINT: PRINT "LINE  ENTERED  WROSG" : PRINT "RE-ENTER 

"!PRINT:GOSUB1000:GOTO310  :rem  129 

530  GOSUB2000  :rem  213 

540  FORI=1T06:POKEAD+I-1,A(I)  :NEXT  -.rem  80 

550  AD=AD+6:IFAD<ETHEN310  :rem  212 

560  G0T07ia  :rem  108 

570  N=0:Z=0  .  irem  88 

580  PRINT" i+3";  :rem  79 

581  GETA?:IFA?»>""THEN581  :  rem  95 
585  PRINTCHR?{20); :A=ASC(A$) ! IFA=13ORA=440RA=32THE 

K670  srera  229 

590  IFA>12aTHENN=-A: RETURN  :rem  137 

600  IFAO20  THEN  633  : reis  10 

610  GOSUE6905 IFI=IABDT=44THENN=-1 rPRINT" {LEFT) 

(LEFT}"; !GOTO690  i rem  172 

620  GOTO570  : rem  109 

630  IFA<4aORA>57THEN580  : rem  105 

640  PRINTASr !N=N*10+A-43  t rem  106 

650  IFN>255  THEN  A=20:GOSUB1000  5GOTO600  :rera  229 
660  Z=Z+l:IFZ<3THEN58a  : rem  71 

670  1FZ=0THENGOSUB1000:GOTO570  .-rem  114 

680  PRINT", "; rRETURN  : rem  240 

690  S%=PEEK(209)+256*PEEK(210)+PEEK(211)  : rem  149 
692  FORI=1T03:T=PEEK(S%-I)  : rem  68 

695  1FT<>44ANDT<>58THENP0KES%-I,32:NEXT  : rem  205 
700  PRINTLEFTS("{3  LEFT) ", I-l );: RETURN  : rem  7 
710  PRINT"  (CLRHRVS)***  save  ***(3  DOWN)"  :rem  236 
720  INPUT" (down!  FILENAME" ;F$  :rem  228 

730  PRINT  SPRINT" {2  DOWN) { RVSlT(OFF)APE  OR  CRVS}D 

{OFFjiSK:  (T/D)"  :rem  228 

740  GETA$!lFA?<>-T"ANDA5<>"D"THES740  :rem  36 
750  DV=1-7*(AS="D") !lFDV=8THENF$="0:"+PS  :rem  158 
760  T5aF$ I ZKaPEEK ( 53 )+256*PEEK ( 54 ) -LEN(T? ) : POKE782 

,ZK/256  ;rem  3 

762  POKE7fll , ZK-PEEK{ 782 ) *256  t POKE780, LEN (T? ) : SYS65 
469  .-rem  109 

763  POKE780,liPOKE7ei,DV:POKE782,l;SYS65466;rem  69 

765  POKE254 , S/256 : POKE25 3 , S-PEEK ( 254 ) *256 : POKE780, 
253  :rem  12 

766  POKE782 , E/256 :POKE7ai , E-PEEK( 782 ) *256 : SYS65496 

jrem  124 
770  IF(PEEK(783)AND1)0R(ST  AND191  )THEN7e0  -.rem  111 
77  5  PRINT" I  DOWN }DONE."i END  : rem  106 

780  PRINT" {down} ERROR  ON  SAVE . ( 2  SPACES)TRY  AGAIN. 
":IFDV=1THEN720  : rem  171 

781  OPENl 5,8,151 1NPUT#1 S , El S , E2$ ; PRINTEIS ; E25 : CLOS 
E15:GOTO720  jrem  103 

782  GOTO720  irem  115 
845  POKE780,l:POKE781,DV!POKE7B2,l:SYS65466-.rera  70 

1000  HEM  BELL  TONE  i rem  250 

1001  POKE36878,15  5POKE36874,190  :rem  206 

1002  FORW=1TO300:NEXTW  :rera  117 

1003  POKE36878,0tPOKE36874,0:RETURN  :rem  74 

2000  REM  BELL  SOUND  : rem  78 

2001  FORW=15TO0STEP-1 iP0KE36878,W: POKE36a76 , 240 :NE 
XTW  -rem  22 

2002  POKE36876,0:RETURN  trem  119 
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IWI I  Y^  Machine  Language  Entry  Program 


For  VIC-20 


Charles  Bronnon,  Program  Editor 


MIX  !S  a  labor-saving  utility  that  alloivs  almost  fail-safe 
entry  of  machine  language  programs  published  in  COMPUTE!. 
You  need  to  know  nothing  about  machine  language  to  use 
MLX—it  zoas  designed  for  evcri/one. 


MLX  is  a  new  way  to  enter  long  machine  language 
(ML.)  programs  with  a  minimum  of  fuss.  MLX  lets  you 
enter  the  numbers  from  a  special  list  that  looks  similar 
to  BASIC  DATA  statements.  It  checks  your  typing  on  a 
line-by-line  basis.  It  won't  let  you  enter  illegal  charac- 
ters when  you  should  be  typing  numbers.  It  won't  let 
you  enter  numbers  greater  than  255  (forbidden  in  ML). 
It  won't  let  you  enter  the  wrong  numbers  on  the  wrong 
line.  In  addition,  MLX  creates  a  ready-to-use  tape  or 
disk  file.  You  can  then  use  the  LOAD  command  to  read 
the  program  into  the  computer; 

LOAD  "filename",!, 1     (for  tape) 
LOAD  "filenaine",8,l     (for  disk) 

To  start  the  program,  you  enter  a  SYS  command 
that  transfers  control  from  BASIC  to  machine  language. 
The  starting  SYS  number  appears  in  the  article. 

Using  MLX 

Type  in  and  save  MLX  for  your  64  (you'll  want  to  use  it 
in  the  future).  When  you're  ready  to  t}'pe  in  an  ML 
program,  run  MLX.  MLX  asks  you  for  tvvo  numbers: 
the  starting  address  and  the  ending  address.  These 
numbers  are  given  in  the  article  accompanying  the  ML 
program. 

You'll  see  a  prompt  corresponding  to  the  starting 
address.  The  prompt  is  the  current  line  you  are  entering 
from  the  listing.  It  increases  by  six  each  time  you  enter 
a  line.  That's  because  each  line  has  seven  numbers — six 
actual  data  numbers  plus  a  checksum  number.  The  check- 
sum verifies  that  you  typed  the  previous  six  numbers 
correctly.  If  you  enter  any  of  the  six  numbers  wrong, 
or  enter  the  checksum  wrong,  the  computer  rings  a 
buzzer  and  prompts  you  to  reenter  the  line.  If  you 
enter  it  correctly,  a  bell  tone  sounds  and  you  continue 
to  the  next  line. 

MLX  accepts  only  numbers  as  input.  If  you  make 
a  typing  error,  press  the  INST/DEL  key;  the  entire 
number  is  deleted.  You  can  press  it  as  many  times  as 
necessar)'  back  to  the  start  of  the  line.  If  you  enter 
three-digit  numbers  as  listed,  the  computer  automati- 
cally prints  the  comma  and  goes  on  to  accept  the  next 
number.  If  you  enter  less  than  three  digits,  you  can 
press  either  the  SPACE  bar,  or  RETURN  key  to 
advance  to  the  next  number.  The  checksum  auto- 
matically appears  in  inverse  video  for  emphasis. 

To  simplif}'  your  typing,  MLX  redefines  part  of 
the  keyboard  as  a  numeric  keypad  (lines  581-584): 


U     I 

O 

1 

8 

9 

H     J       K 

L 

become    0 

4 

5 

6 

M 

1 

2 

3 

MLX  Commands 

When  you  finish  typing  an  ML  listing  (assuming  you 
type  it  all  in  one  session),  you  can  then  save  the  com- 
pleted program  on  tape  or  disk.  Follow  the  screen 
instructions.  If  you  get  any  errors  while  saving,  you 
probably  have  a  bad  disk,  or  the  disk  is  full,  or  you've 
made  a  typo  when  entering  the  MLX  program  itself. 

You  don't  have  to  enter  the  whole  ML  program  in 
one  sitting.  MLX  lets  you  enter  as  much  as  you  want, 
save  it,  and  then  reload  the  file  from  tape  or  disk  later. 
MLX  recognizes  these  commands: 

SHIFT-S:  Save 
SHIFT-L:  Load 
SHIFT-N;  New  Address 
SHIFT-D:  Display 

When  you  enter  a  command,  MLX  jumps  out  of 
the  line  you've  been  t)'ping,  so  we  recommend  you  do 
it  at  a  new  prompt.  Use  the  Save  command  to  save 
what  you've  been  working  on.  It  will  save  on  tape  or 
disk  as  if  you've  finished,  but  the  tape  or  disk  won't 
work,  of  course,  until  you  finish  the  typing.  Remember 
what  address  you  stop  at.  The  next  time  you  run  MLX, 
answer  ail  the  prompts  as  you  did  before,  then  insert 
the  disk  or  tape.  When  you  get  to  the  entry  prompt, 
press  SHIFT-L  to  reload  the  partly  completed  file  into 
memory.  Then  use  the  New  Address  command  to 
resume  typing. 

To  use  the  New  Address  command,  press  SHIFT-N 
and  enter  the  address  where  you  previously  stopped. 
The  prompt  wilt  change,  and  you  can  then  continue 
typing.  Alvva3'S  enter  a  New  Address  that  matches  up 
with  one  of  the  line  numbers  in  the  special  listing,  or 
else  the  checksum  won't  work.  The  Display  command 
lets  you  display  a  section  of  your  typing.  After  you 
press  SHlFT-D,  enter  two  addresses  within  the  line 
number  range  of  the  listing.  You  can  abort  the  listing 
by  pressing  any  key. 

What  if  you  forgot  where  you  stopped  typing? 
Use  the  Display  command  to  scan  memor}'  from  the 
beginning  to  the  end  of  the  program.  When  you  reach 
the  end  of  your  typing,  the  lines  will  contain  a  random 
pattern  of  numbers.  When  you  see  the  end  of  your 
tj'ping,  press  any  kev  to  stop  the  listing.  Use  the  New 
Address  command  to  continue  typing  from  the  proper 
location. 

MLX:  Machine  Language  Entry 

100  PRINT"{CLR)[PURl"fCHR${142);CHR$(8); 

:rem  181 

101  POKE  788,194:REM  DISABLE  RUN/STOP 

8  rem  174 
110  PRINT"  {RVSH14  SPACES)"  :rem  117 
120  PRINT" {RVS}  {RIGHT} fOFF}i*3£{RVS} 

(RIGHT)  {RIGHT} [2  SPACES } E*1{0FF} |*3 
£{RVS}£{RVS}  "  ;rem  191 

130  PRINT "Trvs}  {right}  EGg{ RIGHT} 

12  RIGHT}  {OFFl£{RVS5£i*l!OPF}E*3 
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{rVS}  "  srem  232 

140  PRINT" E RVS} {14  SPACES)"       :rem  120 
200  PRINT" {2  down} {pur} {BLK}A  FAILSAFE  MA 

CHINE": PRINT "LANGUAGE  EDIT0RJ5  DOWN}" 

:rem  141 
210  PRINT"{BLK}{3  UP} STARTING  ADDRESS"! IN 

PUTS:F=1-F:C$=CHRSC31+119*F)  srem  97 
220  IFS<256ORS>32767THENGOSUB3000:GOTO210 

:  rem  2 
225  PRINT: PRINT  I  PRINT SPRINT  :rem  123 
230  PRINT"{BLK} {3  UP] ENDING  ADDRESS" :INPU 

TE!F=1-F!C$=CHR$(31+119*F)  srem  158 
240  IFE<256ORE>32767THENGOSUB3000:GOTO230 

srem  234 
250  IFE<STHENPRINTC$;"{RVS}ENDING  <  START 

{2  SPACES}" :GOSUB1000:GOTO  230 

srem  176 
260  PRINTS  PRINT SPRINT  srem  179 

300  PRINT" {CLR)";CHR5( 14 ) rAD=S     srem  56 
310  PRINTRIGHT5 ( "0000"+MID$ ( STR? ( AD) , 2 ) , 5 

) ; " s " ; s  F0RJ=1T06  : rem  234 

320  GOSUB570:IFN=-1 THEM J= J+N s GOTO 3 2 0 

srem  228 
390  IPN=-211THEN  710  srem  62 

400  IFN=-204THEN  790  srem  64 

410  IFN=-206THENPRINT: INPUT" {DOWN }ENTER  N 

EW  ADDRESS "iZZ  srem  44 

415  IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVS}OUT  OF  RANGE" sGOSUB1000sGOTO410 

srem  225 
417  IFN=-206THENAD=ZZ: PRINTS GOTO310 

srem  238 
420  IF  NO-196  THEN  480  srem  133 

430  PRINTsINPUT"DISPLAYsFROM";FsPRINT, "TO 

"; JINPUTT  srem  234 

440  IFF<SORF>EORT<SORT>ETHENPRINT"AT  LEAS 

T";Sr"{LEFT),  NOT  MORE  THAN"; Es GOTO 4 3 

0  sreiti   159 

450    F0RI=:FT0TSTEP6  s  PRINT  s  PRINTRIGHT$  (  "000 

0"+MID5(STR$(I) ,2),5);"s";  srem  30 
455  FORK=0TO5  sN=PEEK( I+K) s IFK=3THENPRINTS 

PC (10) r  :rem  34 

457  PRINTRIGHT$( "00"+MID$(STR$(N) ,2) ,3) ;" 

,";  srem  157 

460  GETAS  s IFA$  > " "THENPRINT  s  PRINT  s GOTO310 

srem  25 
470  NEXTKsPRINTCHR$(20); sNEXTI s PRINT sPRIN 

TsGOTO310  srem  50 

480  XFN<0  THEN  PRINTsGOTO310      srem  168 
490  A(J)=NsNEXTJ  srem  199 

500  CKSUM=AD-INT{AD/256)*256jF0RI=1T06;CK 

SUM=(CKSUM+ACl))AND255sNEXT  srem  200 
510  PRINTCHR? ( 18 ) ; sGOSUB570 !PRINTCHR$ ( 20) 

srem  234 
515  IFN=CKSUMTHEN530  srem  255 

520  PRINT  SPRINT "LINE  ENTERED  WRONG" s PRINT 

" RE-ENTER "tPRI NT SGOSUB1000SGOTO310 

srem   129 
530   GOSUB2000  srem   218 

540    FORI=lT06sPOKEAD+I-l,A(I) sNEXTsrem   80 
550   AD=AD+6sIF  AD<E   THEN   310  srem    212 

560    GOTO    710  srem   108 

570   N=0tZ=0  srem   88 

580  PRINT" E+g";  srem   79 

581  GETA$sIFA$=""THEN581  srem   95 
585    PRINTCHR$(20);sA=ASC(A$)sIFA=13ORA=44 

ORA=32THEN670  srem   229 

590    IFA>128THENN=-As RETURN  srem   137 

600    IPAO20   THEN   630  srem   10 

610   GOSUB690  5lFI=lANDT=44THENN=-l s PRINT" 

{LEFT}  {LEFT}"? SGOTO690  srem  172 
620  GOTO570  srem  109 

630  IFA<48ORA>57THEN580  srem  105 

640  PRINTA$r sN=N*10+A-48         srem  106 


650  IFN>255  THEN  A=20!GOSUB1000:GOTO600 

srem  229 
660  Z=Z+l!lFZ<3THEN580  srem  71 

670  IFZ=0THENGOSUB1000sGOTO570    srem  114 
680  PRINT","; sRETURN  srem  240 

690  S%=PEEK(209)+256*PEEK(210)+PEEK<211) 

srem  149 
692  F0RI=lT03sT=PEEK(S%-I)  srem  68 
695  IFT<>44ANDT<>58THENPOKES%-I,32  5NEXT 

srem  205 
700  PRINTLEFT? ( " { 3  LEFT} " , I-l) ; sRETURN 

s  rem  7 
710  PRINT"{CLR}{RVS}***  SAVE  ***{3  DOWN)" 

srem  236 

720  INPUT" {DOWN}  FILENAME ";F$     srem  228 

730  PRINT: PRINT" {2  EX3WN} {RVS }t{ OFF  JAPE  OR 

{RVS)D{0FF)ISK3  (T/D)"       srem  228 

740  GETA$ I IFA$  <  > "T " ANDA?  <  > "D"THEN740 

! rem  36 
750  DV=1-7*(A$="D") :IFDV=8THENF5="0s"+P$ 

srem  158 

760  T$=F?sZK=PEEKC53)+256*PEEKC54)-LENCT? 

):POKE782,ZK/256  s rem  3 

762  POKE781 , ZK-PEEK( 782 ) *  256 : POKE780 , LEN ( 
T$)sSYS65469  srem  109 

763  POKE780 , 1 s  POKE781 , DV i POKE782 , 1 s  SYS654 
66  srem  69 

765  POKE254,S/256jPOKE253,S-PEEK{2S4)*256 
5POKE780,253  srem  12 

766  POKE782,E/256tPOKE781,E-PEEK{782)*256 
SSYS65496  srem  124 

770  IF(PEEK(783)AND1)0R(ST  AND191)THEN780 

srem  111 
775  PRINT" {DOWN) DONE. " SEND        srem  106 

780  PRINT" {DOWN) ERROR  ON  SAVE. {2  SPACES )T 
RY  AGAIN." !IFDV=1THEN7 20      srem  171 

781  OPEN15,8,15!lNPUT#15,El$,E2$sPRINTEl$ 
;E25sCLOSElSsGOTO720  trem  103 

782  GOTO720  srem  115 
790  PRINT"{CLR}{RVS}***  LOAD  ***{2  DOWN)" 

srem  212 

800  INPUT" {2  DOWN}  FILENAME ";P$   srem  244 

810  PRINTS  PRINT" {2  DOWN} {RVS )T{ OFF }APE  OR 

{RVS]d{0FF)1SKs  (T/D) "       srem  227 

820  GETA$  s IFA$  <  > "T " ANDA$  <  > "D "THEN8 20 

srem  34 
830  DV=1-7*<A$="D") sIPDV=8THENF$="0:"+F$ 

srem  157 

840  T$=F$sZK=PEEK(53)+256*PEEK(54)-LEN(T$ 
) !POKE782,ZK/256  srem  2 

841  POKE781,ZK-PEEKC782)*256sPOKE780,LEN( 
T$):SYS65469  srem  107 

845  POKE780 , 1 ! P0KE781 , DV : POKE782 , 1 s  SYS654 

66  srem  70 

850  POKE780,0sSYS65493  srem  11 

860  IF<PEEK(783)AND1)0R(ST  AND191 )THEN870 

srem  111 
865  PRINT" {DOWN} DONE. "SGOTO310     srem  96 
870  PRINT" {DOWN }ERROR  ON  LOAD. {2  SPACES }T 
RY  AGAIN . { DOWN } " : IFDV=1THEN800 

srem  172 

880  0PEN15 , 8,15: INPUT#15 ,E1$ , E2$  sPRINTEl? 

;E2?:CLOSE15sGOTO800  srem  102 

1000  REM  BUZZER  srem  135 

1001  POKE36878,15sPOKE36S74,190   srem  206 

1002  FORW=lTO300sNEXTW  srem  117 

1003  P0KE36878 , 0  s  POKE36874 , 0  s RETURN 

srem  74 

2000  REM  BELL  SOUND  srem  78 

2001  FORW=15TO0STEP-1 sPOKE36878,W!POKE368 
76,240!NEXTW  srem  22 

2002  POKE36876,0! RETURN  srem  119 
3000  PRINTC$;"{RVS)N0T  ZERO  PAGE  OR  ROM" s 

GOTO1000  srem  89 
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It  all  adds  up... 


HOME  COMPUTERS 


A 

ATARI 


850  Inwrface tl59  00 

1010  asoorder 171.89 

1020  Color  Prinwr 1219.00 

1026  Dot  Ualrlx  Prlntai- IS9S.O0 

102T  litter  (Jualiiy  Print8r.,$a68.00 
1030  Direct  Connect  Uodem.... $99.99 

lOSO  Disk  Drive t349.00 

1064  Memory  Module t)2S  00 

tbuoh  Tablot'Sortware $64.99 

Light  Pon/Software $72.99 

CX22  Track  Ball $39.99 

7097  Atari  Logo $74.99 

4018  Pilot  (Hoine) $87.99 

40S  Pilot  IBduC) $99.99 

8036  Atari  Pilot $77.99 

5049   VlalCalc $149.99 

488  Communicator  IT $110.99 


WHILX  SUPFI.T  LASTS 

600XL CALL 

800XL CALL 

Call  for  new  low  pricing 

1200XL.... .CALL 

1480XL CALL 

CX30  Paddles tU.Qe 

CX40  Joysiiok $7.99 

4011  Star  Raiders $31.99 

40S3  Pac  Una .$31.99 

40Z5  Defender $31.99 

802B   Dig  Dug  $31.BB 

8031    Donkey   Kong $35.99 

8034  Pala  Position.,.. $37.99 

8040  Donkey  Kong  Jr $33.99 

8043  M.B  Pacmaa $37.98 

6044  Joust $37.99 

8045   PongO $33.99  ■ 

80B3  Moon  Patrol... $33.99 

4003  ABBomhlBr $44.99 

8126  Mlcrosort  Basic  I  or  II $84.99 


DISK  DRIVES  FOR  ATARI 

PBMCOM  HANA 

AT  88-Sl  $279  00     1000 S29B.00 

AT  SaSl   PD $299  00  THAK 

nmn  at-i>2 $389.oo 

OTDrlTB $379.00    AT-D4 $689.00 

MXHOSY  BOABSa 

ATARI  APPLE/FRANKLIK 

Axlon   32K $59.99    Anion  1Z8K $299  00 

Axlon   48K $9999    Axlon   320K $849  00 

Axlon  128K $299  00 

ALIEN  VOICE  BOX 

Atan ;.. , $119.00   Apple,.., $149.00 

DISKETTES 

nxnum 

s"."  ss.'SD  Sir 9S 

S",-  SSDD      S21  99 

5'4"    DS'DD $26  99 

DISK  HOLSKBS 
IHNOVATIVE  COHCEPTS 

FUp-n-Flle   IQ $3-99 

FKp-n-Flle  BO $17.99 

Pllp-n-Plle  SO  w/lock $24.99 

Fllp-n.pu«  (400/800  ROM)  $17.99 


S"."  MDl  $21  99 

SU''  MD-2 $29  99 

8"   FDl $39  99 

8"  FD-2 $49.99 

VZHHATIU 

5 '.'»■■  SSDD S26.9S 

6 'A"    DamD $34.99 

>IB 
6<^"  Disk  Head  Cleaner $14.99 


COnrTROLLERS  &  J07STIGKS 

WICO  KKArT 

Joystick $21  99  Joystick $41.99 

3-way  Joystick  .  .  S8S-99  Atari  Single  Fire $13.99 

Power  Grip  $21-99  Atari   Switch  Hitter $16  99 

BOSS  Jqysllok $17.90  Apple  Paddles $34.99 

ATARirVIC  Tm*  Ball $34.99  IBM  P»<Jdl«S $34.98 

Apple  Trak  Ball $64.99  IBM   J<W8tlck $46.99 

Apple  Analog $37.99 

hoala 

Atari   (ROM) $79  99    IBM $99.99 

C-64   IHOM) $79  99    Apple/Franklln $85  99 


VBJHTBBB 

AXIOM 

AT.IOO  Atari  Interface  Prlnt8r$199.00 

OP-100  Parallel  Interface $188.00 

aPBSO  Atari  Bidirectional $319.00 

OP.700  Atari  Color  Printer      $489  00 


GP-530  Parallel  Printer 

BMC 
401  Letter  Quality  . 
BX-eO  Dot  Matrix 

CHOH 

Oorllla  Banana $148.00 

Prowrlter  dSlOP $379.00 

Prowrlter   1S50P , $698.00 


$269  00 


$689.00 
$28900 


MAjnniMAa  iali.t 

leOL $889.00 

ISOL $799.00 

Spirit  80 $289.00 

SBC 

8027  Dot  Matrix $389.00 

Pmwriter CALL 

B010'1S/30 $749.00 

3S10.'1B/30  $1369-00 

7710/18/30  $1798.003 

OXIBAXA' 
82,  83,  84.  92,  S3.  2350.  2410. ..CALL 

OLTKPIA 


AID  (IS  cps)  Son  of  Sl*rwrliar$a69.00    Compact  Z $479,00 


Hot  Dot  Matrix CALL 

FlO-40  Starwnter $99900 

FIO  66   Prlntmaster-  $1349,00 

COMKIX 


Compact   HO..  .     . .4509  00 

ESW    3000 $1449  00 

SMITH  COaORA 
TP-1000 


$449.00 
$119,00 


ComWriter  11  Letter  Quality    $449.00    Tractor   Feed. 

DIABUl  aiI.Via  &IBD 

6Z0  Letter  Quality $949.00    500  Letter  Quality $449.00 


630  Letter  Quality... $1749.00 

OAXSTwrniTn 

2000 $999.00 

Tractor  F^d  fTTnll  $109  00 

EPSON 

RX-80,   HX-BOFT.   RXlOO CALL 

FX-BO,    FXlOO CALL 

LQ    1500 , CALL 

I9S 
PrUm  80. ..For  Configuration. ...CALL 
Prism  32... For  Conflgunailon CALL 

moo. $466.00 


ARCHOK 

VolKsmodem. 

Mark  !L  Serial 

Mark  VII  [Auto  Ans/Auto  Oial)$9g.99 

Mark  Xn  (1200  Baud) $269.99 

Marlt  TRa-eO $99.99 

9  Volt  Power  Supply (9.98 


S69.99 
$79  99 


Smartmodem  300  S199  00 

Smartmodem  1200 S499  OD 

Smarlmodem  I20OB  $449  00 

Micrcmodem   lie  $269.00 

Micromodem    100 $899  00 

Smart  Com  n »8B.B9 

Chronograph $199.00 


850  Letter  Quality $549.00 

770  Letter  Quality., $869.00 

RXAX 

Oemlnl  lOX r;:...7. $279  00 

Gemini   ISX-., ,.  .   .   S3S9  00 

Serial    Board , $7500 

Radix    10 .,  .$599.00 

Radix    16 ,. $699.00 

TOBBIBA 

1340 $829.00 

1381 $1499.00 

TmAjrSTAx 

130P $469.00 

130P $649.00 

315    Gclor      $459.00 

MODEMS 

NOVATION 

J'Cat. $99  99 

Cat S139.00 

Smart  Cat  Kf3 $179.00 

Smart  Cat   103/812 -...$399.00 

AutoCat $219.00 

Sia  AuioCat $549.00 

Apple  Cat  II $248.00 

212   Apple  Cat     S449  00 

Apple  Cat  212  upgrade $289  00 

Smart  Cat  Plus  $369  00 

zEHirrH 

ZT-l S339  00 

ZT-IO $309.00 

ZTU $369.00 


MONITORS 


S149  00 
$159  00 
S  169  00 
$269  00 
S8B9.00 

Color  a  Plus $399.00 

Mew  Color  300.400.600,600,700.. .Call 
Color  4T  IBM $599.00 


300  Qreen 
300  Amber 
310  Amber 

Color   1 

Color  1   P 


$269  00 

$129  00 

..$139.00 


us 


ISQl  (12"  On«n) .$88.89 

leoi  Plus  (la-  Oreon  m-R«e1  »S8  99 

9191  Pius     $249-00 

QOaiLLA 

12"   Green $88.99 

IS"   Amber .     $95  9S 

NEC 

JB  1260  Qreen $109.00 

JB  1201  Oreen $149.99 

JB   1206  Amber $159.99 

JB  1216  Color $369.00 

JC  laie  RGB $489.00 

JC    1460  Color.  S359  00 

PaiWCSTOH  OBAf  Mica 
MAX-12    Amber  $199  00 

HX.12  RGB $499  00 

SRT  2    RGB $849  00 


SAKATA 

9C  100  Color 
SG  lOOO  Green 
SA-IOOO  Amber    . 

«AXAn 

210  Color  BOB  .  ..$269.00 

400  UedRes  RGB , $319,00 

418  Hl.R^  ROB , $439,00 

420  Hl-Res  ROB  (IBM) $468,00 

100  12'*  Qreen $126.00 

lOe  la"  Amber «139.00 

WSI 

Gree.T $99.99 

12"  Green $119.99 

12"  Ambar $129.99 

Amber $119.99 

Color $269  99 

Quadolirojoe  8400  Color $499.00 


Pi  1. 
PI  2. 
PI  3. 
Pi  4. 
1400 


ZVM182  AmDer „.»B6.99 

ZVM123  Green.  $89.99 

ZVM124    IBM-Amber $149.00 

ZVM131    Color $309.00 

ZVMI33   RGB .  $429.00 

ZVM13E  RGB'Composilc  $469  00 


west 
800-648-3311 

In  NV  call  (702)566  5654  Dept.   105 

Order  Status  Number:  588-5654 

P.O.Box  6689 

StateUne.  NV  8S449 


Canada 

Ontario/Quebec  800-26B-3974 
Other  Prouinces8QO-268-4559 

In  Toronf:  call  (4  16)829  0866,  Dept.  106 
Ordar  Status  Numtwr:  628-0866 
2S08  Dunwln  Drive,  Unit  3B 
Ulssissauga,  Ontario,  Canada  L5L1T1 


east  «^^ 

800-233>8950  Ji^ 

In  PA  call  17171337  9575.  Dept,.   105 

Order  Status  Sumber:  327-9576 

Customer  Service  Number:  327-1450 

477  E.  am  St..  WlUlamsport.  PA  17701 


JTo  risk,  no  deposit  on  C  0  D  orders  and  no  waltlngpertod  for  certified  etiecTts  or  money  orders  Add  : 
Larger  shipments  may  require  additional  charges.  KV  and  PA  residents  add  sales  tax.  All  ite:n.s  ^ 
our  catalog. 


n:m  S51  sTlippin^  an,l  ' 
.".■,i;iiib;iily  iijtl  priCM 


r.  all  orders 
■1,1  [.oday  lor 


the  best  prices 


APFLX/TRAB'KI.IN 
DISK  DILITEB 

mOHO-«GI 

AB - - iI99.00 

ASO Call 

A40-,    1899.00 

A70 $319  00 

RABA. 

Elite    1 J279.00 

Elite  a ; $389.00 

BUto  3 $689.00 

APPU  Ha  STAXTMB  PACK 

64K  Apple  ile .  Dlsii  Dnve  If  Controller. 
BO  Column  Card.  Monitor  11  &  DOS  3.3 

COIIPI.ETE CALL 

Cftll  on  all  otber  Apple  MoAeU 


1^  FRANKLIN 


ACE  1000  Color  Computftp CAT/L 

ACE  PRO  PLUS  System CALL 

ACE  1200  Office  Mgml-  SjstemCALL 


ACE    PORTABLES 


CALL 


^SAIMVQ 


MBO  BSO.. CALL 

MBC    8S0-S CAIiL 

HBC  BSS GALL 

MBC  S65-2 CALL 

HEWLETT 


HP  71B  $419.99 

410V $1B9.99 

41CX $849.99 

SHARP 


PACKARD 

HP  lie sea 69 

HP  ISC xiMX..: I9a.99 

HP  15C $93.99 

HP   leC $92.99 

HP  7BD ,-..$879.99 

HPIL   Uodute $98.99 

HPIL  Cassetti'  or  Printer $339  99 

Card  Reader $143  99 

Extended  runcllon  Module $63.99 

Time  Module       $83  99 


NEC 


PC-IBOOA $16B.9e 

FC-ISBOA $8a.0B 

CE-1E5   Pvm'.er  Cassette SlSe.99 

CL-ISO  Color  Frmtsi'/Cw»tt(4171.Ba 

CE-16B  8K  RAM $83.99 

CB-161    16K  RAM $134.99 

CE-SOO  ftOM  Library $29.99 


$469 


CBM  aOSa IBS9 

CBM    8096 $869.00 

CBM    9000  $999.00 

Biaa-80... $768.00 

a031S  to  9000  Upgrade $499.00 

2031   LP  DISK  DriVB $899.00 

aO60  Dull  Drive $999.00 

8860  DUk  Drive $1849.00 

40S3  Printer  $399  00 

8023  Pr!r.:er $589  00 

6400  Printer $1449.00 

Z-RAM $369.00 

Silicon   Office $699,00 

The  Manager $199.00 

BoftKOM $126.00 

VlSlCalo $189.00 

vmomaioaAi.  gorxwxxm 

Word  Pro  8  Pitis $169.00 

Word  Pro  3  Plus $169  00 

Word  Pro  4  Plus  6  Pluseach    $279  00 

InfoPpo..- $179.00 

Adminlslfaior $309.00 

Power    $79  99 


HBC 

PG-SaaiA  TUermal  Printer.. .-$149.99 

PC-8281A  Data,  aeoordor $99.99 

PC-S201-06  BK  RAM  Chips.. ..$105.00 
PC^S^OeA  32K  HAM  Cartrldee$3S9.00 

"s  commodore 

"  8X-a4Portatile $83B 

CBH  64 $1BB 

C1S41  Disk   Drive $249.00 

C1E3D   DatasBtle    S6S  99 

C1520  Color  FrUitenFiotter.. $129.00 

M^Ol  Dot  M&trix  Printer $819.00 

C1686  Dot  Uatrlx/Serlal $299.00 

C170a  Color  Monitor $889.00 

C1311  JOJSUOk $4.99 

Ciaia  Paddles  $11  99 

C1600  VIC  Modem  .  ..  $59,99 

C16S0  Auto  Mdoem $89.99 

Logo    64.... $49.99 

Pilot  64 $39,99 

Word  Pro  34  Plus 569.99 

CaJo  Result  64 $86.99 

Calc  Result  Easy. $39.99 

UCS  aoi  Color  Printer $499.00 

DPS  1101  Daisy  Printer $459.00 

Magic  Tolea  Spaaeh  Uoduls  .  .  $64  99 

Desk  Orgatni;er  Lock  S49.99 

Vidtex  Telecommunications.    $34  95 

SDl  Disk  Drive $349.00 

SD2  Disk  Drive  $H99.0a 


wao  vrnxmrmmM 

NBC  8050 $899.00 

NEC  3S30 $1899.00 

PnCOM/TAJIDO 
nUK  DJUTMB 

5  li  ■■  3B0K  floppy    S199  0O 

S  Meg  Hard  w;Controller $1049,00 

10  Meg  Hard  wControUer  ..$1349-00 
20  Meg  Hard  w  Controller. ..S1899  00 
TIBICOHP 


itiamovmo 

WordStar  Professional  Pack  .#Sfl0.OO 
HICBOMIM 

R:Baae  4000 CALL 

MnLTIKAia  tST. 

Multi  Mate $289.00 

MICBOSTUP 


vieiCalcIV $169.00   croeetalX $108.00 

VlstWord    + ,.$849.00 


vis)-on 
Optical 


'Sertss" CALL 

Mouae $189.09 


IDBAasoci«t8a 

SMB    to    45MB    Hard    drives    with 

removable  Cart,  backupas  lowa£$1399 

ABT  BEBBABCH 

Six  Pak  Plus from.  $249  00 

Combo  Plus  11 from„.$879.00 

Mega  Plus from. ..$899.00 

I/O  Plus from. ..$139.00 

OUABKAM 

(Juadllnk $479.00 

Quadboard as  low  as  ..$309.00 

(Juad  512  Plus,.  -  as  low  as. ..$259.00 

Quadcolor as  low  as..  $239.00 

Chronograph $89  99 

Parallel  Interface  Board $89  99 

64K  RAM  Chips  Kit $49.99 


MiatumowT 

liulllPian $169.00 

AMwtom-TAxm 

dBABB  U $299.00 

dBASE    III $429  00 

Friday! $179  00 

rva 

Easy  Writer   II $249  00 

EasySpBllef $119  00 

BasyPUar  ..,.j..,.-/«>wBKii«»twwi$Ji3O.0o 

ooartsMMwrAL  MfrwABS 

1st  Cla^s  Mall/Form  Letter $79.99 

Home  Aocountant  Plus $68,99 

Sj-mphony  -  tsigoB 

12.3 $339,00 

PHOrSSSIOWAL  lOPTWARB 
PC    Flus.'The   Boss  $309  00 

STBAPSB 
i'Ua   Maoa^er $69,98 


^mw  I  data  systems 

EC  COMPATIBUI 

IB  BIT  STSTZHS 

for  price  and  configurations 


80FTWAH2 


Electronic  Arts 

One  on  One 
Ui^ic  Constructloa 
Plnball  Conatniotloa 
Cut  a:  Puts 

Hiri  liil  I.li.:« 
I.ifoCom 
Witness 
Infiacl 
DeaChr.e 
PianeLfall 

Suspended 

Sorcerer 

AtarlBoft 

JOTlSt 

Mcw.i  Patrcl 
Ms   pacMan 
PacMan 
DonXey  Kong 
Pole  Pcpi'..or. 

dpinnalter 

Aercblca 

Trana 

Adventurw  Creature 

Aegean  Vtayafe 

SDocTper  Troopa  %A  «a 

Trac*.  id::   Fpvf:- 

.Alphabe:  ioo 

:.i  Searcll  of, 

Pacemalter 

Kinder  Comp 
Dynalecll 

Code  Wiittr 
VlslCopp 

ViBlCalc 

VisiCalc  Advanced 
PfS: 

Wr:**? 

Grap^ 

Repor". 

File 

Srlutlcns  '  &£  low  as 
■Unll  on  Titles 


$:»9» 
$sts»» 

$3e.9S 

$£9  99 

S29  9l5 

«2e.»9 

$27.99 
$£9.99 
129.99 

•S4M 
134  89 
$34  99 
134  99 
$34-99 
S34<)9 

$sia.ae 

$£4,99 
$£4  99 
$£4  99 

$ssas 

tZ'^  99 
124  99 
122  89 
$17  B9 

$T8.M 

$199-89 


$£9-99 
$£9-99 
$£9-99 
$3S.»9 

Sil-^? 

$29  99 
$29  99 
S29  99 
529,99 
$29.99 
$£7.99 
•£9.99 
•£9.99 

W* 
.VA 
NA 
NlA 
S» 
!!'A 

$ee.99 

•34.99 
•£499 
$£4.99 
$SS.9S 

S22  09 
$22  sg 
•24  99 
•22  99 

SIT  99 

$79 .99 

$149  99 
HA 


$£9.99 
•£9.99 
$a».BS 
$39.99 

»::r  oa 

•89  99 
$29  99 
•29  9!) 
S29  !t;i 
$89.99 
•37.99 
•29  99 
•29  99 

»S«<» 
S,:.i  iV:. 
•  28  99 
•2B  99 
t2S  99 
S2a  99 

M8.99 
•24  «« 
•24  99 
•24.99 


Apple 


•29.99 
$29.99 
$39.99 

•29  99 
•219  99 
•29  69 

429  99 


$27.89 
•29.99 
$2B9S 

tWM 

laa  99 

126  99 
•23  99 
t2S9g 
52a  99 

$28,99 
•34  99 

•24.99 

$24.»« 


•  22  "'-i 
S22  9S) 
•24  99 

•  22  99 
»17  9!> 

$176  99 

$1S»«9 

■n 


•  22  99 

•  22  99 

•  2499 

•  22  99 
$J7  99 

tm8.99 

$189  99 

$2e9.99 


west 
800-648-3311 

In  MV  call  (702)588-5654.  Dept.  105 

Order  Status  Number:  688-6654 

P.O.Box  6689 

Statellne,  N"V  89449 


Canada 

Ontario/Quebec  800-268-3974 
Other  Prouinces8ao-268-4559 

In  Toronto  call    [4161828-0666.  Dept,. 

Order  Status  Number;  828-0866 

2605  Dunwln  Drive,  Unit  3B 

MtsEtssauga.  Ontario,  Canada  I>SL1T1 


105 


east 
800-233-8950 

In  PA  call  (717)337. 9575. Dept. 


VISA 


105 
Order  Status  Kumbar:  327-9576 
Customer  Senrlce  Number:  327-1460 
477  E.  3rd  St.,  WlUlamspOrt,  PA  17701 


CAHAOIAN  ORDERS:  All  prices  are  subject  to  shipping,  tai  and  ourronoy  fluctuations-  Call  for  exact  pricing  In  Canada.  IHTERNATIOSALOBDEBS:  All- 
orders  placed  with  U.S   offices  for  delivery  outside  the  Continental  United  States  must  be  pre-paid  by  certified  check  only.  Include  3%  iminlmum  $5) 
Shipping  and  handling  EDUCATIONAL  DISCOUNTS,  Additional  discounts  are  available  to  qualified  Educational  Institutions.  APO  fc  FPO  Add  3%  iminimum 
$5)  shipping  and  handling. 


Li^co  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  us 


In  PA  1-71  7-327-1824 


DISKETTES 


ELEPHANT 

I  5%"  SSSD $16.75 

5V."  SSDD »19.95 

I  5'V  DSOD... S25.95 

MAXELL 

5V."  MD-1.-- $24.75 

5V4"  MD-2 $34,75 

CERTRON 
CASSETTES 

CC-101121    »15  99 

CC-20I1SI -.         il  7  99 


[appkz 


KOALA 

KOALA  TABLET SS4.75 

PROGRAWM£RSGUr[)E...S12.75 
GEOHETBIC  DESIGNS.. -S22. 75 

LOGO  DESIGN 427.75 

ILLUSTRATOR  , S99.75 

SONG  WRITER  O S27.75 

MASTER  TYPE S27.75 

CONTINENTAL 

HOME  ACCOUNT  D  $44.75 

TAX  ADVANTAGE $35,75 

BOOK  OF  APPLE 

SOFTWARE $16.95 

GENERAL  LEDGER $179.95 

ACCOUNTS  PAY $1  79.95 

ACCOUNTS  REC $179.95 

PAYfiOLI SI  79.95 

PROPERTY  MGMT $329.95 

BRODERBUND 

BANK  STREET  D $44.75 

CHOPLIFTER  D $24.95 

OAVID-DMAGIC $24.95 

DROL  D  $24.95 

LODE  RUN  D $24.95 

SEAFOX  0 $22.95 

SPARE  CHANGE  D $24.95 

AE  D ..,$24.75 

SSI 

KNIGHTS  OF  DESERT  ...$26.75 

EAGLES $26.75 

TIGERS  IN  SNOW $26.75 

GERMANY  1  9S5 S36.7S 

BATTLE  FOR 

NORMANDY $26.75 

SHATTERED  ALLIANCE       S39.75 


PRINTING  PAPER 

3OO0  SHEETS 

FANFOLD $42.75 

1000  SHEETS 

FANFOLD $19  75 

10OO  SHEETS  LETTER...  12 1.95 

200  SHEETS  LETTER   SB  99 

150  RAG  STATIONERY  S10  99 
MAILING  LABELS  <1  in|  ...$9.75 
mjtll  1000  FANFOLD  ...$24.75 


SPINNAKER  64 

KINDERCOMPO/R $21.75 

STORY  MACH  ROM $24.75 

FACE  MAKER  D/R $24.75 

SNOOPEBTR  D $26.75 

SNOOPERT2  D $26.75 

DELTA  DRAW  ROM $26.75 

FRACTION  F  BOM $24.75 

KIDS  ON  KEYS  $24.75 

EPYX 
JUMPMAN  C/D    ...   $27.75 
JUMPMAN  JRfl  ....S27,75 

PITSTOPR $27.75 

TEMPLE  ASPHAI  ...$27.75 
GATETASPHAI  ....S27.75 
CRUSH,C4CC/0...S21.75 


HES64 

TURTLE  TUTOR 
TURTLE  TRAINER..; 
TURTLE  GRAPHICS 

SOUND  BOX  

64  FORTH 

HESMON  

GRIORUNNER 

ATTACK  OFMC  .... 

HESWRITER 

OMNI  WRITER 

TYPE  N  WRITER... 

PAINT  BRUSH 

BENJI 

HOME  MANAGER  .. 
TIME  MONEY  MGR. 

OMNI  CALC 

SWORD  POINT  ,,.,. 

HES  MODEM  

M.  MULTIPLAN 


$22.75 
$22.75 
$37.75 
.$9.95 
$39.95 
$22.75 
$19.75 
$22.75 
$28.75 
$45.75 
S24.75 
$22.75 
$25.75 
$28.75 
S44.75 
$33.75 
$19.95 
S4g.95 
$65.75 


OVER  2000 

SOFT-WARE  TITLES 

IN  STOCK 

CATALOG  AVAILABLE 


HARD  DISK 
DRIVES 

■  FOR. 

IBM,  APPLE,  TRS80 

10  MEG S975.00 

20  MEG $  1  39900 

30  MEG CALL 

•  DO  S  E)rrRA 


ATARI 

SOOXL ..CALL 

1450XL CALL 

1 050  DRIVE $299.00 

1027  PRINTER CALL 

1025  PRINTER. $299,00 

1020  PRINTER $219.00 

1010  RECORDEFt $74.00 


ATARI 

PACMAN S29.75 

DONKEY  KONG $29.75 

DIG  DUG $29.75 

DEFENDER $29.75 

CENTIPEDE $29,75 

DEADLINE $34,75 

ENCHANTER $34,75 

INFIDEL $34,75 

PLANETFALL S34.75 

STAR  CROSS $34.75 

SUSPENDED S34.75 

WITNESS $34.75 

ZORKl $34.75 

ZORKd $34,75 

ZORKIII $34-75 


ATARI 


INFOCOM 

DEADLINE $34.75 

ZORK  1,2,  or  3  S26.75 

ENCHANTER $34,75 

EDUFUN 

GULP  ARROW 

GRAPHICS $24.75 

FACE  FLASH  $24.75 


CONTINENTAL 

HOME  ACCOUNT  D  $44.75 

TAX  ADVANTAGE $35,75 

BOOK  OF  ATARI 
SOFTWARE $1 6.95 


BUSINESS 

VISICALC SI  59.75 

LETTER  PERFECT $89,75 

LETTES  PERFECT  R $89.75 

DATA  PERFECT $89.75 

FILE  MANAGER $69.75 

HOME  FILE  MGR $69.75 

BOOKKEEPER $19.75 

C.R.I.S S119.75 

TEXT  WIZZARD $34.75 

SPELL  WIZZARD $34.75 

SPINNAKER 

STORY  MACHINE  R $26.75 

FACE  MAKER  R ,  $24.75 

KINDEROMP  R $20.75 

FRACTION  FEVER  R $24.75 

DELTA  DRAWING  R $26,75 


PARKER  BROTHERS 

TUTANKHAM  R S33'.75 

SUPER  COBRA  R $33.75 

ASTRO  CHASE  R.   -...,... .  $33.75 

FROGGER  R $33.75 

QBERTfi $33.75 

POPEYER $33,75 

RISKR $42,75 

CHESS  R $42.76 

SCARBOROUGH 

SONG  WRITER  O $27.75 

MASTER  TYPE $27,75 

EASTERN  HOUSE 

MONKEY  WRENCH  II  $52.75 

DONT  ASK  SOFTWARE 

SAM $39.75 

ABUSE  ,,,. $22.75 

WORD  RACE $24.75 

PROGRAM  DESIGN 

ANALOGIES S14.S0 

PREP  FOR  SArS $79.75 

PRESCHOOL  10 

BUILDER $16.75 

READING  COMP S16.75 

VOCABULARY  BUILDER.. .$16.75 
LETS  SPE LL SI 4.75 


AMDEK 


VIDE0300 $139.00 

VIDEO  300A    $149.00 

COLOR  1+ $269.00 

COLOR  11-f $399,00 


GORILLA 


12"  GREEN 
12"  AMBER 


$82-00 
$89,00 


NEC 

JB1 260  GREEN $99,00 

JB1201  GREEN $145,00 

JS12Q5,,       AMBEP $145,00 

JC1215  COLOR  $269.00 

JC1216 -  $399.00 

SAKATA 

SCI  00  COLOR,,.  $229,00 

SGIOOO  GREEN  ,    .     $99.00 

SA  AMBER  $109.00 


MONITORS 

TAXAN 

100  GREEN   $115,001 

105  AMBER $125.00 1 

2 lORGB COMPOSITE. . .  $269.00 1 

400RGBMEDRES S295-Oo| 

410  RGB  HI  RES $349  ool 

420  RGB  HI  RES  (IBM). ,     $47S.Ool 

121  GREEN $145.00 1 

122  AMBER  $149.0o| 

ZENITH 

ZVM  122A  AMBER $95,001 

ZVM  123G  GREEN  .  S85.00| 

ZUM  124IBM-PC $129,00| 

ZUM  COLOR $275  ooj 

ZUM  133  RGB $3B9  0ol 

ZUM  135  RGB      $449  001 

ZUM  136  $589  001 


Lyco  Computer 

Marketing  &  Consultants 


Lyco  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  LIS 


In  PA  1   717-327-1824 


MANNESMANN 
TALLY 

SPIRIT  80  »I99.0O 

MTL-ISOL  $559.00 

MTL-1BOL ST75.00 


STAR 


SAVE  "-PRINTERS 


NEC 


MICRONICS 

GEMINI  15X S379.00 

DELTA  10 S449.00 

DELTA  15 S525.0O 

RADIX  10 $575.00 

BAOIX  15 $675.00 

POWERTVPE SCALL 

SWEETP(Mcid«l100|  ...$549,00 
STXBO $149-00 


CITOH 


TIMEWORKS 


NECa023 $369  OO 

NECBOZ5 $699.00 

PRINTER 
INTERFACING 

rA"p^^irR,'?Brr"GEMiNi  iox  $259.00 

TRS  SO.  Tl,  AND  OTHERS 

BLUE  CHIP 

MIZOIO $279.00 

M1 201 0  C-64 $279.00 

D401 5 1 1 399.00 

CARDCO 

LQ1 $449.00 

LQ2 $279.00 

LQ3 $339.00 

PRINTER  INTERFACE $39.75 

PRINTER  INTERFACE  WITH 

FULL  GRAPHICS $65.75 

LIGHT  PEN $29.75 

5  Slot  Eipantlon  M $54.00 

M  WrinNOW »39.0O 

64  Mall  NOW $29.00 

2.J  Writ*  NOW $29.00 

M  K«rP»tJ $29,00 

Unlvarul  Ciu,  Int $29,75 

Pl-lnl»r  Utility $19.75 

6  Slot  Eipantlon $79.95 

3  Slot  Eipaniion $24.05 

JUKI 

6100 CALL 

RITEMAN 

INFO  RUNNER  CALL 


GORILLA  GX-10O $169.00 

GORILLA  SERIAL $199.00 

PROWR ITER  8510 $335.00 

PBOWRITEB  11  $575.00 

86O0 $899.00 

STARWRITER ....  $929.00 

PRINTMASTER $1199.00 

SHEET  FEEDER $425.00 

620 $929.00 

630 $169900 

B510SP $499.00 

8510  SCP $559.00 

A10  LETTER  OUAL $499.00 

PANASONIC 

1090 $279.00 

1091 S309.00 

1092 $459.00 


EPSON 

RX-80 J269.00| 

RX-80FT SZ99.00 1 

FX-80 $439.00 1 

FX-1 00 $639.00  I 

OKI  DATA 


80 $199,001 

aZA $299,001 

83A $569.00  I 

84 $959,00 1 

92 $409.00| 

LEGEND 

880 $259,00  I 

1000 $279.00 

1200 CALL 

1500 CALL 

1018 CALL 


INVENTORY 

ACCOUNTS  HEC... 
ACCOUNTS  PAY... 
GENERAL  LEDGER 

PAYROLL  

INVENTORY  MAN  . 

CASH  FLOW 

SALES  ANALYSIS  .. 
DATA  MANAGER  ... 
MONEY  MGBC/D... 
CHECKBOOK  C/D  .. 
FORGET-ME-NOT  ., 

STAR  BATTLE 

ROBOT  REVOLT.... 
SPELLBOUND  C/D  . 


$39.75 
$39,75 
139. 75 
$39.75 
$39.75 
$39.75 
$39.75 
$39.75 
$19.75 
$19.95 
$19.95 
$19.95 
$19.95 
$19.95 
$19.95 


CONTINENTAL  64 

HOME  ACCOUNT  D    $44.75 

TAX  ADVANTAGE $35.75 

F.C.M 135.75 

64USERS0FENCVC....|12.75 
20  ENCYCLOPEOrA $12.75 

SCARBOROUGH  64 
SONGWRITERO,.,  $27,75 
PHI  BETA  FILER....  $32.75 
MASTEBTYPE $27.75 


f X  commodore 


KOALA  64 

KOALA  TABLET $69.75 

PROGRAMMERS  GUIDE.,. $12.75 

GEOMETRIC  DESIGNS... $22. 75 

LOGO  DESIGN $27.75 

SPIDER  EATER $22.75 


MODEMS 

ANCHOR  MARK  I $45.75 

ANCHOR  MARK  II $45.95 

HAYES  SMART $239.00 

HAYES  MICRO  II $309.00 

MICROBIT  1000C $129.00 

CAT    $144.00 

0-CAT $155  00 

J-CAT ^.,.,    1115  00 

APPLE  CAT  II  $279  00 

21  2  APPLE  CAT $SS9  OO 


COMPUTER 

CARE 

BIB 


DISK  DRIVE  CLEANER. 
COMPUTER  CARE  KIT  . 


.SI  2.75  i 
.$19,751 


NORTRONICS 

DISK  DRIVE  CLEANER 
WITH  SOFTWARE  FOR 
IBM-PC.  ATARI.  VIC. 

APPLE,  ATI $29.75 

OISKCLEANER  REFILLS... $14. 75 
CASS  DRIVE  CLEANER. .,,$9.95 
MEDIA  BULK  ERASER  ,,,$46,75 


UIK 
LETTER  PERFECT.    $69.75 
DATA  PERFECT  .,..$69.75 
SPELL  PERFECT  . . .  $69.75 


INFOCOM 

DEADLINE $34.75 

ZORK  1,2,  or'3 $34.75 

ENCHANTER $34.75 

PLANETFALL $34.75 


PERCOM 

AT88S1   $249.00 

AT88S1  PD $299,00 


DISK 
DRIVES! 


PEACHTREE 
SOFTWARE 

LIST  MANAGE  R $1 99.00 

BUSINESS  GRAPHICS       $22S.0O 

GRAPHICS  LANGUAGE... $299,00 

REQUIRES  COBAL  RUNTIME 

ACCTS  PAYAB  LEI $495.00 

ACCTS  PAYABLE  M $1695.00 

PAYROLL  I $495.00 

PAYROLL  II  $1695.00 

GENERAL  LEDGER  I. ...$495.00 
GENERAL  LEDGER  II  ,.,$1695,00 


ADD-ON  DRIVES CALL 

AT  88  DOUBLER S1 1  9.00 


CP/M  VERSION 

PEACHPACK4 $295.00 

ACCTS  PAYABLE  III $549.00 

ACCTS  PAYABLE  IV $8S9.00 

ACCTS  REC  III  $549.00 

ACCTS  REC  IV $699.00 

GENERAL  LEDGER  III...  $549.00 
GENERAL  LEDGER  IV..,  $899.00 
INVENTORY  MGMT  I.,  ..$549.00 
INVENTORY  MGMT  II. .  .$899.00 

PAYROLL  III $549.00 

PAYROLL  IV $699.00 

SALES  INVOICING  I  ....$549.0O 
SALES  INVOICING $699.00 


INNOVATIVE 
CONCEPTS 

FLIP-N-FILE  10 $3.75 

FLIP-N-FILE  15 $8.95 

FLIP-N-FILE  25 $16.95 

FLIP-N-FILE  50 $1  7.75 

FLIFN-FILE(RomHolderl.   .517.75 


RANA  1 000  ....  $299 
INDUS  GT $325; 

CONCORD 

ATARI  17eK  MASTER  $289  00 
ATARI  34BK  MASTER  $369  DO 
ATARI  ADD-ON  DRIVES       $CALL 

TRACK  DRIVES 

AT-D2 $329.00 

AT-D2  TURBO  PAK S22.95 

AT-DH CALL 

PRINTER  CABLE  S22  95 


TO  ORDER 


CALL    TOLL  FREE  O'  vend  order  lo 

800-2  33-8760        P^o^B^oHosr 

Customer  Service  1-71  7-327-1825  Jersey  Shore    PA  t  774C 


POLICY 

fn  slock  iiems  Shipped  *ithin  24  houfs  ol  O'de'  Personal 
cfiechi  requTe  four  A^ehs  clearance  be'o'e  shipping  No 
depositonC  OD  o'de'S  f  ree  shippingonprepaidca^honJe's 
wHhin  The  continental  u  S  PA  residleni^  add  sales  (a»  ATI 
p'Dduct5  sutbjeci  TO  availability  ancJ  pnce  change  Adverii<,trd 
prices  show  4  ■'  discouni  o*1e'ed  fof  ca^^  aidd  4  fo'  Maste' 
Card  or  Visa    DEALER  INQUIRIES  INV I T E O 


Verbatim  Datalife  Diskettes 


Box  of  ten  5W'  Datalife  diskettes  witfi  envel- 
opes, labels  and  reinforced  fiub-rings.  FREE 
PLASTIC  LIBRARY  CASE. 

5V4"  DS/DD 

MD55Q-01 
MD55Q-1Q 
MD550-16 


5V4 "  SS/DD 

MD525-01 
MD525-ia 
MD525-16 

5V4 "  SS/QD 

MD577-01 
MD577-10 
MD577-16 


$22.95 

[ID 


$31.95 


5V4"  DS/QD 

MD5571Q    $43.95 
MD557-16    ▼^*'""' 


Printers 


$121.00 
$259.00 
$348.00 

$555.00 
$365.00 


Gnrllla/Banana  Parallel  or 
serial  Dot  Matrix  120CPS 

Gemini  10X-120CPS  Bi-Directional 

Prowrlter  8510AP  10" 

Color  prlnter/ploter.  C.  Itoh  CX- 

4800. 4  colors,  10"  Parallel  or 

Senal 

Powerlype,  Daisywheel 

Letter  Quality 

Shipping  anflHanOlifiQ  S3.00  for  any  or der  ot  OiskBttes  S9  00tof 
printers  COD  ordeisaddSI  65  We  accept  Visa.  Mastercard  and 
American  Express  credit  cards  at  nd  extra  charge  Illinois  residents 
please  vlA  7%  lax 


Call  us  now  toll  free  ANYWHERE  in  tlie  U.S. 

Orders  only:  1-S00-2Z7-380D  Ask  (or  "Smart  Data" 

7  Davs  a  Week.  Z4  Hours  a  Day 


Otiier  information:  (312)  255-4456 
9am  Id  8pm  (centra]),  Mon.  through  Sat. 

^■n^filt   ILBD091 


There  is  a  road. 


Many  cancer  patients  need 
transportation  to  and  from 
treatments.  That's  why  the 
American  Cancer  Society  has 
formed  groups  of  volunteers 
across  the  United  States  who 
give  a  few  hours  of  their  time 
each  month  to  drive  them. 
The  road  to  recovery  can  be  a 
long  and  difficult  one,  but  it  can 
be  that  much  easier  when 
there  are  friends  who  can 
help  along  the  way 

5  {  American  Cancer  Society 


^^ 


COMMOE>ORE  ^g^  SOFTWARE 


BcaLh  Held  IDHJ.'JJ 

NeurrjlAine  .   iDtlJ.PS 

R Jid  .n  er  Moviv*  (Dllft.lS 

Mjsici  Compose t  lD)2fc.9; 

MjriSnli  All  Iilk-^  fill 

Li,gi)  lDtS<)  9S 

Pllor  liil42,95 

Pel  Emulitor  (D1I8.95 

IniroioBisicI  (TI18.<)5 

Screen  Editor  I  Dl  1 8.95 

Super  EipanderVSP  IDIJI.'JS 

TheMinigcr  lDlS9.95 

Simonj  Btsic  (CMS. 95 

Music  Mtchme  (Cl  15.95 

Music  Composer  |DH8,9S 

NeiidiCobol  IDM9.9S 

Nentli  Fortrin  IDH9.95 

CoDUDodonr 

.Assembler  IDIJ^.SS 

BoniiiPict ID.T116.95 

CP  M2  ISysiem (C.T15^.95 

Eass  Scnpt' |D»*4.9S 

East  Mall  M  iDllS.'JS 

Eisi  SpellW  lDnS.95 

EasvCalcM  (D)b4.95 

Ejsv  Lesson  OuU  ,10116.95 

EisvFin»lice(!-5l  1D113.95 

Magic  Desk (D)54.95 

Zorkll.Jl lDUO.95 

Suspender) IDU'.W 

Starcross  .(D(J0.95 

Deadline  .10137.95 


Vuite  Synthesis 

I059.95 

Public  E>omain  All  Tiltes 

,    lD)«.9S 

Accounting  Series  (ei) 

-   10)49.95 

CondiieiiUl 

Home  accountant        .. 

tDlSO.TS 

Tas  Advantage 

ID140.M 

FCM. 

tD)T6.S0 

Creative  Soflwim 

Househuld  Fin 

ID.TI  19.95 

Homelnv.    - 

ID.TI  19.95 

Loan  Analvzcr 

,(D,TH9.95 

Cymbd 

English.' Spanish 

...(D)3<l.95 

(D)34.95 

Historv' Geography 

.,(0)34,95 

Music  Theorv     

...(0)34,95 

Mathematics      

,.   (0)34.95 

Entertainment  Tonighl 

...(0)25.95 

Epyi 

.     (027.00 

Temple  of  Apshai 

...ID)27.0O 

(D  TC7,00 

Gateway  to  Apshai 

...10)27,00 

Jumpman  Jr .' . . 

...(027,00 

.(0)39.95 

Impossible  Mission  .... 

...10)25.95 

Greatesi  BasebaM 

-..10)25.95 

Summer  Games 

...(0)29,95 

Silicone  Warrior 

...(D)2S.9S 

Hn  Sofnran 

HesMonM 

...(CI27.00 

Tunic  Graphics  It 

...tC)40M 

lime  Money  Mgr (0)51.00 

Omniwritcr (0)24.20 

Mulliplan (D>59.95 

HesWriter64 (C)30.4S 

Gridrunner 1C)20.95 

nJFonh (049,95 

HES  Games -IM (0)27,95 

.Minnesota  Fals  Pool (CI20.45 

HES  Modem  I ID146,95 

!Vllcn>pnMC 

Hellcat  Ace IDI2J.9S 

Soto  Flight- IDI26.95 

NaloCommander (0)26.95 

FIS  Eagle (0)36.95 

inbLogic 

Flight  Simulalorll |D)44,95 

Night  Mission  Pintail 1D)26,« 

Splnnakfr 

Alf  in  the  Color  Caves (C)27.9S 

Bubble  Burst (C)27.95 

Julie  Box (C)27.95 

Kidwriler (0)23.95 

Face  Maker (0.023.65 

Hey  Diddle  Diddle (0)20.30 

Kindercomp (D.C)20.30 

Snooper  Troops (D)27.0O 

Fraclion  Fever (C)23.6S 

Amazing  Thing 10)27.00 

Alphabet  Zoo 10)23,65 

Kids  on  Keys (D.C)23.65 

Delta  Drawings (C)27,2S 

Up  for  Grabs (C)27,2S 

Cosmic  Life , (CI23.65 


Story  Machine (C)27-2S 

rtains (D)27-95 

Aerobici  . .  - (D)30-95 

Scflrboraogb 

Songwriter 10)35.95 

Master  Type (0131.95 

Sjraaipw 

Fl.  Apocalypse (D.C)23.70 

Shimus (D.C)23.70 

BlueMai (D.C)23.70 

Zation (0)27.95 

SSI 

Combat  Leader (D)29.{X) 

Knights  of  the  Desert (D)29.O0 

Computer  Bascbali (D)29-OC 

Eagki (D)29-OC 

Ring  Side  Seat (D)29.0O 

RFDI9a5 (D)29-95 

Germany  198S (D)34.95 

Golf , (D)29-95 

Broadsides   (D)31 .95 

Electniiile  ArU 

One  on  One (0137.00 

Music  Construction  .-.,,.  .(0)37.00 

SkyFoi 1D]37.00 

Hlac«llui.Dtta 

Doodle (0)31.95 

Word  Pro3+   (0)76.95 

Trivia  Mania (0)33.95 

Paper  Clip  /w  Spell  Pack  . .  .(0)89.95 

Orical (D)79,9S 

Musicalc (0)41,95 

Mr.  Robol (D)26,9S 


To  order,  cali  toll  free  or  send  by  mail    We  accept  Viju,  Afnirt  r  Corrf,  American  Express  or  Money  Orders.   Personal  checks  allow  t\<o  ^eeks  lo  clear.    Add 
I  il.OO  (or  shipping  ^ilfi  on  additional XL65  for  CO. D.  orders.    Other  countries  please  call  on  shipping  with  a  minimum  ofSW.OO.    Alt  prices  are  subject  to 
chanf/e     Credit  and  exchange  onty  please.    Far  return  authorization  call  \214\  7S9-fi937. 


64c 


Hudware 

Commodore  64 
F.KCcurive  64 
1541  Disl  Drive 
1530  Dalasette 
MPS  801  Printer 
1650  Automodcm 
1702  Color  Monitor 
1600  Modem 
64  Prog.  Ref,  Guide 


21.95 
23.80 


19.50 
13.50 
20.75 


ATARI,  APPLE.  IBM.  SOFTWARE  LISTS  AVAILABLE 


FOR  MDERS  ONLY  CULL  TOLL  FREE 

Outside  Texas  Inside  Texas 

1-80D-527-8698  1^0(M42-^717 


liikij^ho'iii^  auil^    LONGVIEW.TX. 
—1    75606 


BASF 

Soft  BoxDOj 

Jovitkki 

Wico 

CoTTiiTiand  Clrt 

Wico  ■'Boss" 

WJL-o  Red  Ball. 

WicoPowerGrip  .20.75 

Qinlo 

Card+G     68.25 

CardB M.^ 

Cass.  Interface  . .  .  J3.25 
S  Slot  Expansion.  .60.35 
Numtric  Keypad  .JO, 25 
GFMINI  Printers 
O'SULLIVAN 
FurnilUTC 
MAXTRON 
Datascttcs 


Only  W^o  o/  So/twatt' 
we  carry  n  ttsied  on 
ihtkml.  CaUil  ihvrt' ii 
u  fltlr  ytJu  nt'fU  ftfr  aU 
compuier;,.         We    ilrr 

hlTP  tU  JfJTf    S'OU' 


20  PROGRAMS 
on  2  cassette  tapes 


L^ 


for  16K 
TS1000, 
TS1500, 
&  ZX81 
only 
SI  9.95. 

*for  TS2068,  C-64,  VIC-20,  ATARI, 
Ti99/4A,  CoCo  &  MC-10  only  $29.95 
Save  money,  learn  about  The  exerting  world  of  home 
computing  and  have  fun  doing  it  with  the  new 
HOME-PAC" 

The  HOME-PAC'"  with   21    page  user   manual 
covers  educational ,  graphics,  recreational,  home 
finance  and  utility  applications. 
Great  tool  for  learning  to  program  in  BASIC. 
Programs  are  listableand  manual  includes  section 

on  modification  tips. 

1 1 0  DAY  MONEY  BACK  GUARANTEeI 
Please  add  S2  00  shipping  and  hantfling  to  order. 

Simplex  Software,  Dept  C2 

62  Crestview  Drive 

Willi  ngbaro.  NJ  08046 

MC.  VISA  &  Checks  Accepted 

Orders  &  Inquiries  Stale  Computer  Tvpe 

Dealer  inquiries  Irwited 


SAVE  MORE 

THAN  EVER  ON 

•7  3M  Scotch® 

<y         DISKETTES 


LIFETIME  WARRANTY! 


$1693$22a 

I    Qty  20  '"^^  mm  Ql,  JO 


■  DSt3D  _ 

'"^^  ^  Ql,  JO 

S3.25ea 
SS.OS  ea 

S3,  to  CI 


5'.   SSOD— 96TPI  {7461 

5'iOSOD—36TPt  17171 

B"SSSDi7401 

S   SSDD|7J1) 

8'  DSDO(743) 

Shipptng:  5'.   DISKETTES— A*J  $3.00  ow  tOOoflraclion 

Thereol    fl'  DISKETTES— Add  J4  00  pef   100  or  r^acl^o^ 

Thereof    OTHER  ITEi-*S    Shippirig  charges  as  shown  m 

add'ton  10  diskelle  shipping  charges    Paymsnt:  VISA  or 

MasterCard    COD  cyders  only   add  $3  30   Tan**:  ^ilrno'S 

cus'ctners.  [Wase  add  S"? 

Houri:  0  Alri-S  PM  Cflnlral  Tim« 
For  fitt  ■•nricft  eilt 

Nationwide:  1-800-621-6827 

In  Illinois:  312-944-2788 

DISK  WORLD! 

Suile  4806  *  30  Easi  Huron  SIreel  *  Chicago   llltnos  60611 


Authorized  Distnbulor 
Information  Processing  Products 


SAVE  ON 


DISKETTES 


$159 

■    Qty  20 


S.SSOD-%TPl      tM9(j  5V  DSDD-96TP1  U.ISes 

Boned  in  lOs  wth  Tyvftc  sieeues.  rwnlorced  hubs  and 
l3t»<s 

DISKETTES  r^OR  MACrNTOSH  ft  HP-T50 

AT  TERRIFIC  SAVINGS' 

3'  3'  MeinofeK  $3.99  ea 

&ee  uur  big  ad  ia  Ihlt  ittu»  rot  &tll«r  gieil  viluQti 
Stripping:  5'.i-  or  3Vj-  DISKETTES— Add  S3  00  per  100  or 
lewer  disicelles  pByrnnl:  VISA  and  Maslefcard  acceijted 
COO  orders  only,  add  S3  00  hundlHIg  charge  Tbi»v;  lnir>o<s 
msid^nls.  f4ease  add  B^^  sal^s  lax 

WE  WILL  >EAT  ItHV  HtTIOKALLY  ADVERTISED  PRICE 
ON  THE  SAME  PHDOUCTS  AND  QtiANTITIES! 

Nationwide:  1-300-621-6827 
Illinois:  1-312-944-2788 

Hours:  SAW  ■  SPM  Cantril  Time 
Minimum  Order:  S35.00 

DISK  WORLD!,  Inc. 

Suite  4806»30  East  Huron  Street  •  Ch-caqo  I'l  no.s  606:  i 


ONLY 
$3495 

SHIPPING 

«  HANDLING 

ADD  S2,50 

D«al9r  inqulrfeB  walcome 

A  compact  and  inexpensive  Eprom  eraser  (or  the 
hacker.  It  erases  two  chips  per  exposure,  so  if  you 
are  one  of  those  smart  people  who  only  maKes  little 
mistakes  and  only  needs  to  erase  tvi/o  Eproms  at 
a  lime,  this  eraser  is  for  you. 


PN 


G 


4401  S_  Juniper  •  Tempe,  AZ  85282 

(602)  B38-1 277  Anions  rssktents  add  6%  lai 


BDRHUHRE- 
'HHNDBQDH 

This  tiaok  "BLOWS  ,.  THE  LOCKSQFF"  protected 
DISKS,  CARTRIDGES,  and  TAPES'!  PracectlQn 
"BEcrets"  are  clanrly  explained  along  ni'Eh 
esssncia  J  inFarmatt  an  gnd  prDcedur-es.  ID 
^O  1  IC"  far-  tannak  ing  pro'CB'C'tHcl  sofcwofp.  An 
gr£i>nBl  of  prnte-ctinn  break  i  ng  snFr.*arp  Is 
included  with  oli  limtingin,  providinQi  you 
witH  thB  tDolH  nBBdDd'!  Pi-ogrBma  Include  h  i  n'^ 
speed  Bi-ror  cHock/ 1  oggl  ng  disk  duplicator.,. 
Disk  picker.  ,  .  Di«k  odltsr.  .  .  CartrltJao  to 
disk/tflpe  aqwer  *f>cl  Otwef'al  otPiti-S  ^or  error 
handl ing  and  advanced  diak  break ing.  Tna 
cartridge  riEthoda  alLaw  ycu  ta  save  and  run 
cartri  dgcB  Fren  disk  or  tape !  The-  t-Bae- 
dupl i cat or   ha*   novnr   been   beQCen  f  This 

manuai    iv  an  inyaluaale  r&fErEncB       ttifi 

including  computer  and  diak  mepc,  ma  molll  4» 
ueaFul  tablsB  and  chnrtp,  (212  PGS   11  POMS] 

CB4  Book  only...... $1B.9b  US 

Book  £  Disk  of  all  prograins 139.95  US 

aP  beak  ....  -Cart.  S  Tapes  onl y .  . .  . S9 . 95  US 


THIS  MANUAL  DOES  NOT  CnNDONE  PIRACY 
SiSNIPPING:  la.QO   DROEPfPflOM:   PSIDAC" 

DEPT  A.  7326  N.ATLANTIC,  PORTLAND.  OR  57217 

-CHECK  OR  MDWEV  OHDEH  ONLY- 


FREE  CATALOG! 

Features  Precision  Tools  and 
Equipment  for  Computers 


^^ 

■ 

■■ 

r 

l"^ 

K^^i 

'"o? 

I 

^rr  : 

l^^-ai,:— 

.fag 

Jensen's  new  catalog  (eatures  hard-to- 
find  precision  tools,  tool  kits,  tool  cases, 
test  equipment  ancJ  computer  acces- 
sories used  by  sophisticated  hobbyists, 
scientists,  engineers,  laboratories  and 
governnnent  agencies.  Call  or  write  (or 
your  free  copy  today. 

I^M  ^P^KI  I  78 1 5  S.  46th  Street 
J^-'^-**— '^1  Phoenix,  AZ 85040 
TOOLS  INC.  I    (602)968-6231 


GREAT  DISKETTES 

Super  low  prices 
SYNCOM 


The  low  pricei!,  high  quality  Oiskette  with  a  LIFETIME  WAH- 

RAMY  PackeO  m  colybaos  ol  10  with  Tyveh  en'/slopes. 

latiEls  and  remlorced  hulls  ^^^^^ 

One  of  me  best  hoys  wf  ve  seen      lliUJ'U'.'M.I 


EQQ 


$139 

*  QTY  20 


«ea.5V4-SSDD 
5V4"DSDDea, 


$-185^ 

*  •  OTV  20 


-Holds  70  5'j"  diskettes  in  dusl  Iree 
$H.95  ea  -  S3.00  Stipng 

-Flip  up  style  hplds  10  5<i'  diskettes 


DISKETTE  71)- 

salely 

DISK  CADDIES 

Sl,65ea  ^   JOShpn^ 

Shipping;  5'.."  DISKETTES-Add  S3  00  pel  100  or  trac- 
tion tt^ereot  OTHER  ITEMS  Shipping  charges  as  5(iowo  in 
addition  todislteite  shipping  ct^arges  Payment:  VISA  or  MC 
COD  orders  only,  add  S3.0O  Tales:  Illinois  customers. 
DieaseaddS'* 

Nationwide:  1-800-621-6827 
In  Illinois:  1-312-944-2788 

MnmjnOraer  S3i00 

WE  tItlLl  BEAT  ANT  NATIONALL*  AOVERIISED  PWCEI 

DISK  WOOLDI 

Suilf  4B06  •  30  EasT  HuiDn  Stieei  *  CtiicaflD    liltnoi.;  $0611 
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The  Editor's  Feedback: 

Computer:  D  PET  a  Apple  □  Atari  D  VIC-20  D  Commodore  64 
D  TI-99/4A  D  Timex/Sinclair  □  Radio  Stiock  Color  Computer 
n  Other D  Don't  yet  hiove  one ... 


Are  you  a  computii  Subscriber? 


n  Ves    n  f^o    I  would  like  to  see: 


More 
D 


Just 
Right 

n 


Fewer 

n 


Specific  applications 
programs. 
BASIC  programs, 
Machiine  language 
progroms 
tutorials. 

Educotionol  articles. 
Detailed  explanations 
of  programs 

What  do  you  like  best  about  compute!  ? 
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Games. 

Reviews  of  game 

software. 

Reviews  of  business 

software. 

Reviews  of  educational 

software. 

Reviews  of  hardware. 


What  do  you  like  least? 
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COMPUTE!  Magazine 

P.O.  Box  5406 

Greensboro,  NC  27435-0406 
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COMPUTEi's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information 
about  tlie  products  advertised  in  this  issue. 
Clearly  print  or  type  your  full  name  and  ad- 
dress. Only  one  cord  should  be  used  per 
person.  Circle  the  numbers  that  correspond  to 
the  key  number  appearing  in  the  advertisers 
index. 

Send  in  the  card  and  the  advertisers  will  receive 
your  inquiry.  Although  every  effort  is  mode  to 
insure  that  only  advertisers  v^ishing  to  provide 
product  information  have  reader  service  num- 
bers, COMPUTEi  cannot  be  responsible  if  ad- 
vertisers  do  not  provide  literature  to  readers. 

Please  use  these  cords  on// for  subscribing  or 
for  requesting  product  information.  Editorial 
and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Check  the  expiration 
dote  on  the  cord  to  insure  proper  handling. 

Use  these  cords  and  this  address  only  for 
COMPUTEI'S  Reoder  Information  Service.  Do 
not  send  with  payment  in  any  form. 
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Circle  101  for  a  one  year  new  U.S.  subscription  to 
COMPUTE!:  you  wil!  be  billed  for  $24. 

Please  print  or  type  your  full  name  and  address. 
Limit  one  cord  per  person. 

Name 
Address 


City 


State/Province 


Zip 


Country 


Please  include  zip  code.  Expiration  1 1/30/84. 
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Turn  >^ourCRT  Monitor  into  a  television  set 
with  Cardco  s  new  monitor  tuners. 


With  a  flick  of  the  switch  you  can  turn 
your  computer  monitor  to  provide  the 
most  vivid  television  pictures  available.  Re 
ceive  a  sharper,  clearer  television  picture  on  your 
CRT  monitor  than  you  ever  thought  possible. 
Model  MT/1  includes  a  full  wireless  remote  control 
sixty-channel  cable  ready  tuner  with  separate  video 
and  audio  output.  Completely  compatible  with 
your  composite  input  computer  monitor.  For  com- 
posite color  or  monochrome. 


^ 


__    separate  video  and  audio  output 
matched  to  your  composite  input  com- 
puter monitor.  For  composite  color  or  mono- 
chrome monitors. 
Backed  by  a  full  90  day  guarantee. 

Write  for  illustrated  literature  and  prices  or  see 
CARDCO  Computer  Accessories  and  Software 
wherever  computers  are  sold. 


Also  available  to  turn  your 
CRT  monitor  into  a  television  set  is  CARDCO 
Model  MT/2,  a  full  UHF/VHF  TV  tuner  with 


cardco,  inc. 


300  S.  Topeka  Wicdita,  Kansas  67202 

._  (316)267-6525 

"The  world's  largest  manufacturer  of  Conunodore  accessories." 


FEATURES                * 

COMMODORE  64" 

APPLE  He™ 

IBM  PCjr™ 

ATARI  SOOXL™ 

Price* 

Built-in  Memory 

Typewriter  Keyboard 

Upper/Lower  Case 
Programmable  Function  Keys 

$219 

64K 

YES 
.  j          (66  Keys) 

YES 

YES 

$699 

64K 

YES 
(62  Keys) 

YES 

NO 

$669 
64  K 

"CHICKLET" 

(62  Keys) 

YES 
YES 

$299 
64K 

YES 

(61  Keys) 

YES 

NO 

AUDIO 

Polyphonic  Tbnes 
Music  Synthesizer 
Hi-Fi  Output 

^^^B;i'*^r  ^*.JH 

YES 
YES 
YES 

NO 
NO 
NO 

YES 
NO 
YES 

YES 
NO 

YES 

VIDEO 

TV  Output 

Video  Monitor  Output 

YES 
YES 

EXTRA  COST 
YES 

EXTRA  COST 
EXTRA  COST 

YES 
YES 

INPUT/OUTPUT 

InteUigent.r/0  Bus 
RS-232  Communications 
"Smart"  Peripherals 

YES 
j,         YES" 
YES 

NO 

EXTRA  COST 
NO 

NO 

YES" 
NO 

YES 

EXTRA  COST 

YES 

'Pno's  shr»wn  :in-  t-iiiniTiim  n-liiil  tmti  iniiy 
"l{<-<iuiri>s  ;in  :ithi|HiT  t*i  tifM-rjift- 

viiry  sli^;htly  in  dilfii-rcnt  niiii'ki'ls 
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First  you  need  the  right  input.,: 

Like  $219.  That's  what  the       ':   '     ' 
Commodore  64™  costs.  It's  about  one  third 
the  price  of  the  Apple  He™  or  the  IBM"  PCjr™ 

And  64K.  That's  how  much  memory 
the  Commodore  64  has.  It's  also  how  much 
memory  Apple  lie  and  the  IBM  PCjr  have. 

This  computer  lesson  is  brought  to  you 
as  a  public  service  by  Commodore  (certainly 
not  by  Apple  or  IBM),  the  only  computer 
company  that  can  afford  to  show  you  a  chart 
like  the  one  above. 

But  what  you  can't  see  above  are  the 


thousands  of  software  programs  that  make 
the  Commodore  64  fully  capable  of  doing 
anything  any  "triple  the  price"  computer  can 
do;  for  fun  or  profit,  for  every  member  of  the 
family;  anything  from  soccer  to  spread 
sheets  to  space  exploration. 

Because  the  Commodore  is  so 
affordable,  you  can  load  up  on  Commodore 
peripherals.  Like  a  disk  drive,  a  printer  or  a 
telephone  modem.  All  together  they  cost  just 
a  tad  more  than  an  IBM  PCjr  by  itself.  With 
no  peripherals. 

No  wonder  Commodore  sells  more 
computers  than  Apple  and  IBM  combined. 

ft  commodore 

^  COMPUTERS 

IT'S  NOT  HOW  LITTLE  IT  COSTS, 
IT'S  HOWMUCHVOU  GET. 


